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; 5 1 « 
ee, : 
; . e 
; 8 $008 1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 1 i484 : i: ALL RIGHTS RESERVED. * 
; : * 
; 11 0011 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; i pote 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 1 001 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; Ve 0014 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 15 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i$ bets : 1* TRANSFERRED. * 
3 i‘ tt 
; 18 0018 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
H 19 0019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $9 Be Y : :* CORPORATION. * 
; ie * 
3 22 00 ; 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 00 1 != SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 24 0024 1 !* * 
; $2 0025 1 !# * 
3 ° 88 $ : naa ca a tei rh 
Tae ‘ 

a 0028 1 ! WRITTEN BY 

3 $3 594 1! Bert Beander March, 1983 

; 0 0030 1! 

A. ae 0031 1 ! MODULE FUNCTION . ; : 

; om it4 1} This module contains all routines which implement DEBUG's 

i 0035 1! Screen Mode facility. 

; » 0034 1! 

; 0035 1 

. - 0036 1 REQUIRE *SRC$:DBGPROLOG.REQ'; 

> 8 0170 1 

; 0171 1 FORWARD ROUTINE ate 

; Bis 1 DBGSKEY_INITIALIZE: NOVALUE, ! Initialize heyped definitions 

s 460 01735 «#1 DBGSSCR_CREATE_DISPLAY, ! Create a new Screen Display Entry 

: 61 0174 #1 DBGS$SCR_CREATE_WINDOW, ! Create a new Screen Window Entry 

3s 62 0175 #1 DBGSSCR_DELETE_DISPLAY, ! Delete a specified screen display 

3 $5 0176 1 DBGSSCR_DELETE WINDOW, ! Delete a specified screen window | 
: «6446 gee 1 DBGSSCR_DISPLAY_COMMAND, ' Process the DISPLAY command semantics 
: 45 178 1 DBGSSCR-EMPTY DISPLAY: NOVALUE, . ! Empty a display of it contents 

: 46 0179 1 DBGSSCR_EXECUTE_CANDISP_CMD:NOVALUE,! Execute the CANCEL DISPLAY command 
s Of 0180 1 DBGSSCR_EXECUTE_ CANWIND_CMD:NOVALUE,! Execute the CANCEL WINDOW command 

; 48 0181 1 DBGSSCR_EXECUTE_DISPLAY_ CMD: ! Execute the DISPLAY and SET DISPLAY 
; | (49 bis 1 NOV : commands 

: 50 0183 1 DBGSSCR_EXECUTE_SAVE CMD: NOVALUE, ! Execute the SAVE command 

Tae He 1 DBGSSCR-EXECUTE-SCROCL_CMD: NOVALUE,! Execute the SCROLL command 

; 26 13? 1 DBGSSCR_EXECUTE SELECT C NOVALUE,! Execute the SELECT command 

a | 01 § 1 DBGS$SCR_EXECUTE_SETTERM_CMD:NOVALUE,! Execute the SET TERMINAL command 

; «54 Hy 1 DBGSSCR_EXECUTE_SETWIND_CMD:NOVALUE,! Execute the SET WINDOW comman 

: 55 188 #1 DBGS$SCR_EXECUTE_SHODISP_CMD:NOVALUE,! Execute the SHOW DISPLAY command 

;. 2 0189 1 DBGSSCR-EXECUTE-SHOSEL_CMD: NOVALUE,! Execute the SHOW SELECT command 

i 0190 1 DBGS$SCR-EXECUTE-SHOWIND_CMD:NOVALUE,! Execute the SHOW WINDOW command 
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DBGSSCR_GENERATE_SCREEN: NOVALUE, 


DBGSSCR_INITIALIZE: NOVALUE, 
DBGSSCR-LOOKUP_DISPLAY, 
DBG$SCR-LOOKUP~WINDO 


W 
DBGSSCR-OUTPUT-LINE_MINIMAL :NOVALUE, 


DBG$SCR-PARSE_CANDISP_CMD: NOVALUE, 
G$SCR-PARSE CANWIND~CMD: NOVALUE, 


“PARSE-SAVE_CMD: NOVALUE 
DBGSSCR-PARSE-SCROCL_CMD: NOVALUE, 
GSSCR-PARSE SELECT CMD: NOVALUE 
DBGSSCR-PARSE-SETTERM_CMD: NOVALUE, 
DBGSSCR-PARSE-SETWIND-CMD: NOVALUE, 
DBGSSCR-PARSE-SHODISP~CMD: NOVALUE, 
DBGSSCR-PARSESHOWIND-CMD: NOVALUE, 

DBGSSCR-READ CINE, 
DBGSSCR-SCREEN_MODE: NOVALUE, 
DBGSSCR-SCREEN-NORMAL: NOVALUE, 
DBGSSCR-SCREEN-TERM: NOVALUE, 
DBGSSCR-SCREEN-TO LOGFILE: NOVALUE, 
DBG$SCR-SCROLL-DISPLAY: NOVALUE, 
DBGSSCR~SCROLL~SOURCE_DOWN, 
DBGSSCR~SCROLL SOU P, 
DBGSSCR~SOURCE BEGIN: NOVALUE, 
DBGSSCR-SOURCE-END: NOVALU 
DBG$SCR-SOURCE-LINE: NOVALUE, 

DBG$S PASTEBOARD: NOVALUE, 


W 
EEN OUTPUT: NOVALUE, 
SPLAY: NOVALUE, 

LL: NOVALUE, 

CE_LINE; 
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Generate contents of all automatically 
updated screen displays 

Initialize Screen Debugging code 

Look up a screen display by its name 

Look up a screen window by its name 

Output Line to screen using a minimal 
screen update algorithm 

Output updated screen image 

Parse the CANCEL DISPLAY command 

Parse the CANCEL WINDOW command 

Parse DISPLAY and SET DISPLAY commands 

Parse the SAVE command 

Parse the SCROLL command 

Parse the SELECT command 

Parse the SET TERMINAL command 

Parse the SET WINDOW command 

Parse the SHOW DISPLAY command 

Parse the SHOW WINDOW command 

Read a Line of input 

Execute SET MODE SCREEN and NOSCREEN 

Make screen normal for SPAWN command 

Make screen normal for exit handler 

Write screen image to DEBUG log file 

Scroll a specified display 

Scroll a source display down 

Scroll a source display up 

Begin retrieval of source Lines 

End retrieval of source Lines 

Insert a source Line in a display 

Update contents of pasteboard 

Write an error message to a display 

Write a Line of output to a display 

Format a source line for display — 

Handler for EXECUTE_SAVE_CMD routine 

Handler for SCROLL_SOURCE_xx routines 

Parse and look up a display name 

Parse and look up a window name 

Parse window specification parameters 

Redirect screen output to DBGSOUTPUT 

Fill in contents of a register display 

Fill hex value into register display 

Find first source Line number in a 
display's screen window 


| 
i 


ppeser EN 
v04-00 


So} 
oo 


ene ROUTINE 
DBGSF 


DBGSNCIS_ADD: NOVALUE, 
DBGSNEWL TNE: NOVALUE, 


DBGSNMATCH 
DBGSNSAVE_BREAK_BUFFER 
DBGSNSAVE_DECIMAL_ INTEGER, 
DBGSPRINT: NOVALUE, 
DBGSREL_MEMORY: NOVALUE, 


“LNUM_ NOVALUE 
DBG$SRC_TYPE-LNUM_SOURCE: NOVALUE, 


ERNAL 
DBGS$GB_KEYPAD_INPUT: BYTE, 


DBG$GL_KEYBOARD_ID, 
DBG$GB_LANG 


UAGE? BYTE 
DBGSGL~CISHEAD: REF CISS$LINK, 


DBGSGL_DEVELOPER: BITVECTORC), 
DBG$GL ~KEY_TABLE_ID 
DBGSRUNFRAME: BLOCK(, BYTE), 
DBG$SRC_NEXT_LNUM 
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! DEBUG's Final condition handler 

' Get a permanent memory block 

! Get a temporary memory block 

! Add buffer to the Command Input Stream 
' Flush the current print Line 

' Match a specified string in parsing 

' Pick up a DEBUG command List 

! Parse a decimal integer constant 

' Format and output print output 

' Release a pereeries memory block 

' Get a modu 

! Type a renee of source Lines 

' Returns ASCIC 

' Report a syntax error in parsin 

! Write a Line to the DEBUG log file 

' Convert a longword to hexadecimal text 
' Scroll screen down one Line 

! Erase rest of line on screen 

! Output screen buffer to terminal 

! Output a Line of text to the screen 


ee meme mem me meme 


3 
G 


mr 


e's Line number range 
symbol name given SYMID 


SCRSSCREEN_INFO, ! Get information about screen terminal 
SCRSSET_BUFFER, ' Set up screen buffer mode 
SCRSSET_CURSOR, ' Set the cursor on the screen 
SCRSSET_OUTPUT, ' Redirect output to DBGSOUTPUT 
SCRSSET_SCROLL, ! Set up scrolling region on the screen 
SCRSUP_SCROLL ' Scroll screen up one Line 

SMGSADD_KEY DEF, i Add a keypad key definition 
SMGSSET_KEYPAD_MODE; ! Set terminal to numeric or applic. 

RN 


Keypad op he 

Used by SMG routines 

The pertenriy SET Language code 

Pointer to first CIS entry on DEBUG's 
Command Input Stream 

Developer switches 

Keypad input Key-Table Id number 

The current user run frame 

The next source Line number 
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§ DBG$SRC_TERM_WIDTH; Terminal width of output device 
LITERAL 
$ CAR_RET = 13, ! Carriage Return character 
TAB_CHAR e ¥ ! Horizontal Tab character 
s BIND 
2 DBGS$CS_ALL = UPLIT BYTE(ZASCIC ‘ALL"), ' Counted ASCII strings 
2 DBGSCS_AS = UPLIT BYTECZASCIC ‘AS*), : used in parsing 
DBGS$CS_AT = UPLIT BYTEC(RASCIC ‘AT') 
DBGS$CS_BOTTOM = UPLIT BYTE(ZASCIC 'BOTTOM'), 
DBG$CS_CLEAR = UPLIT BYTE(ZASCIC *CLEAR'), 
DBGS$CS_COLON = UPLIT BYTEC(ZASCIC ':'), 
7? DBG$CS_ COMMA = UPLIT BYTE(ZASCIC ',"), : 
8 DBG$CS~CR = UPLIT BYTE(1, CAR_RET) ! Carriage return 
89 DBG$CS"DO = UPLIT BYTE(ZASCIC™'DO'S , 
90 DBGSCS_DOWN = UPLIT BYTE(ZASCIC "DOWN"), 
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; 159 0291 1 DBGSCS_EQUAL = UPLIT BYTE(ZASCIC ‘=") 
160 8 3 1 DBGSCS_GENERATE = UPLIT BYTE(ZASCIC 'GENERATE’), 
161 95 1 DBGSCS_HIDE = UPLIT BYTE(ZASCIC ‘HIDE'), 
195 0294 1 DBGSCS_HISTORY = UPLIT BYTE(ZASCIC ‘HISTORY'), 
16 0295 1 DBGS$CS_ INPUT = UPLIT BYTEC(ZASCIC ‘INPUT'), 
164 0 36 1 DBGSCS_LEFT = UPLIT BYTECZASCIC 'LEFT'), 
165 0297 1 DBGSCS_LPARE = UPLIT BYTE(ZASCIC ‘('), 
166 0298 1 DBGSCS_MARK_CHANGE = UPLIT BYTE(ZASCIC '"MARK_CHANGE') 
167 0299 1 DBGSCS-NOMARK_CHANGE= UPLIT BYTE(ZASCIC "NOMARK CHANGE"), 
168 0300 1 DBGS$CS_NORMAL = UPLIT BYTE(ZASCIC 'NORMAL*), 
169 0301 1 DBG$CS_OUTPUT = UPLIT BYTE(ZASCIC ‘OUTPUT') 
170 O30¢ 1 DBGSCS_REFRESH = UPLIT BYTE(ZASCIC ‘REFRESH'S 
171 0 1 DBGSCS_REGISTER = UPLIT BYTE(ZASCIC 'REGISTER'S, 
if¢ 0304 1 DBGSCS_REMOVED = UPLIT BYTE(ZASCIC ‘REMOVED'), 
17 0305 1 DBGSCS_RIGHT = UPLIT BYTE(ZASCIC ‘RIGHT'), 
174 0306 1 DBG$CS_RPAREN = UPLIT BYTE(ZASCIC ')'), 
175 0307 1 DBGS$CS_ SCROLLING = UPLIT BYTECZASCIC ‘SCROLLING'), 
176 0308 1 DBGSCS_SIZE = UPLIT BYTE(ZASCIC ‘SIZE'), 
177 0309 1 BG$CS_SLASH = UPLIT BYTEC(ZASCIC '/') 
178 0310 1 DBG$CS- SOURCE = UPLIT BYTE(XASCIC ‘SOURCE"), 
179 0311 1 BGS$CS_TOP = UPLIT BYTECZASCIC ‘TOP'), 
180 O31§ 1 DBGSCS_UP = UPLIT BYTECZASCIC ‘UP'), 
181 031 1 DBGSCS_WIDTH = UPLIT BYTEC(ZASCIC ‘WIDTH'); 
182 0314 1 
183 0315 1 GLOBAL 
184 0316 1 DBGSGL_SCREEN_ERROR: INITIAL(O) ! Pointer to active error Display Entry 
185 0317 1 DBGS$GL_SCREEN_HISTORY INITIAL(O), | Pointer to active et a Disp x Entry 
186 0318 1 DBGSGL_SCREEN_INPUT: INITIAL(O) ! Pointer to active input Display Entry 
187 0319 1 DBGSGL_SCREEN_LOG: INITIAL (FALSE) ' Flag set if screen logging is active 
188 0320 1 DBG$GL_SCREEN_MODE: INITIALCFALSES, | Flag set if screen mode is active 
189 0321 1 DBG$GL_SCREEN_NOGO: INITIAL(FALSE), ! Flag to turn off STEP and GO commands 
190 bs5§ 1 DBG$GL_SCREEN_OUTPUT: INITIAL(O),  ! Pointer to active output Display Entry 
3) 8352 : DBG$GL_SCREEN_SOURCE: INITIAL(O); ! Pointer to active source Display Entry 
193 0325 1 OWN 
194 0326 1 BOT_OFFSET, ! Offset from DROW to bottom ref point 
195 0327 1 OT_REF _FILEID, ! Fileld of bottom reference point 
196 0328 1 OT REF _RECNUM, ' Record number of bottom reference point 
197 tT 1 DBGSGL_JT100_FLAG: INITIAL(TRUE), ! Flag set if terminal is VT100 class 
198 0330 1 DBGS$SCR_CURDISP_INPUT: ' Pointer to the Display Entry for the 
199 0331 1 REF DBGSDISP_ENTRY INITIAL(O), ! current input d spi ey 
200 0336 1 DBG$SCR_CURDISP_OUTPUT: ' Pointer to the Display Entry for the 
01 0333 1 BGSDISP_ENTRY INITIAL(O), ! current output display 
4 Bee 1 DBG$SCR_CURDISP_SCROLL: ' Pointer to the Breet ey ntry for the 
0 0335 1 EF-DBGSDISP_ENTRY INITIAL(O), ! current scrolling disp ay 
soe 0336 (1 DBGSSCR_CURDISP_SOURCE: ' Pointer to the Display Entry for the 
05 0337 1 REF DBGSDISP_ENTRY INITIAL(O), ! current source line displa 
soe O38 1 DBGS$SCR_DISPLAY cist: ' List head for doubly Linked List of 
07 0339 1 VECTORC2, LONG) INITIAL(O,0), Screen Display Entries 
08 0340 1 DBGSSCR_WINDOW LIST: ' List head for doubly Linked List of 
09 0341 1 VECTORC2,LONG) INITIAL(0,0), : Screen Window Entries 
10 Beg 1 FIXED_SCROLL_AMOUNT, ' Flag set if fixed scrolling amount is 
11 0345 1 : used for source scrol ing 
\ ote 1 FIXED SCROLL_VALID: INITIAL(FALSE), ! Flag set if above flag is valid 
1 0345 1 INVSCR_FLAG, ' Flag to invalidate scrolling count 
14 0346 1 ' for scrolling displays 
15 0347 #1 MARKLINE_DISABLE_FLAG: ! Flag set to disable marking of source 
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INITIAL (FALSE) 
OLD_CNT: VECTORCDBGSK_PASTE SIZE], 


* taf VECT 
DBGSK TREND? VECTOR,” BYTE), 


OLD. SCREEN REND: V 
DBG$K_PASTE_SIZE*132, BYTE), 
OLD_VALID: 


BITVECTORCDBGS$K_PASTE SIZE], 
PASTEBOARD: DBGSPASTEBOARD, 
SAVED_ SCROLL, 
SCREEN_MODE_FIRST_TIME: 

INITIAL (TRUE), 
SCROLL_AMOUNT, 
SCROLL_TO_BOTTOM, 
TOP_OFFSET, 


TOP"REF _FILEID, 
TOP REF ~RECNUM; 


i Source disp 
SCROL 
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Line with ‘'=>"' when Seroti ing 

Old screen image char count per Line 

Old screen image rendition bits 
per line 

Old screen image used to implement a 
minimal screen update scheme 

Old screen image rendition codes used 
for minimal screen update scheme 

Flags to indicate old screen image 
text for a line is valid 

The terminal screen pasteboard 

Saved yitetig Bae when scrolling 
a source line displa 


Flag cleared the first tine screen 


mode is set 

Lay scrolling amount from 
command 
Flag set when scrolling to bottom of 

a source display 

Offset from DROW to top ref point | 
Fileld of top reference point in display 
Record number of top reference point 


x. 


a 
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; 3 0 29 : MACRO TO CREATE A KEYPAD DEFINITION . 
> 24) fe 1 
; tg 0375 1! 
; rb 8 oe ! } This macro creates a built-in keypad definition. It is called as follows: 
3 45 6 2 KEYPAD_DEF(IF_STATE, KEYNAME, FLAGS, COMMAND, SET_STATE) 
; $03 0378 1 | where IF_STATE is a string giving the ‘‘color oi 9 that must have been pressed 
> 248 0379 1! first, KEYNAME is a string piv ing the name of the key being defined, FLAGS is 
; 249 0380 1 ! a bit-mask that indicates whether the key is echoed and whether it terminates 
; 250 8 81 1 ! the current input operat ion. COMMAND is the DEBUG command string to which the 
3 2) Hf 1 ! new key maps, and SET_STATE is a string giving the new ‘color state’ that is 
; S26 0385 1 ! set by the new ner (iF any). IF STATE and SET_STATE can both be null param- 
; Sez Beee : } eters, and COMMAND can be a null string. 
: 255 0386 1 MACRO 
: $28 4 $444 : oe KEYNAME, FLAGS, COMMAND, SET_STATE) = 
: 258 M0389 1 
s oF m 0390 1 
; 260 m 0391 1 "Set up the pointers to the string descriptors for If-state and the 
; 261 ” $954 1 ! Set-state parameters. For the default ‘'color’’ state, these pointers 
: $6¢ - O30z ; } are zero; otherwise they point to descriptors for ‘GOLD’ or ‘BLUE’. 
: 264 M0395 1 HIF NULL(IF_STATE) THEN IF_PTR = 
3; 265 M0396 1 ZELSE ZIF IF_STATE EQL ‘GOLD’ ZTHEN IF_PTR = GOLD_DESC 
; 266 m 0397 1 ZELSE ZIF IF STATE EQL "BLUE" XZTHEN IF_PTR = BLUE_DESC 
; 267 M0398 1 MFI MFI RFI; 
; 268 m 0399 1 XIF XNULL(SET_STATE) XTHEN SET_PTR = 0 
; 269 m™ 0400 1 ELSE ZIF SET_STATE EQL ‘GOLD’ XTHEN SET_PTR = GOLD_DESC 
; 270 m 0401 1 ZELSE SIF SET_STATE EQL 'BLUE' ZTHEN SET_PTR = SLUE_DESC 
; sf) e bees : SFI 2FI MFI; 
; A M0404 1 
; 2746 ™ 0405 1 ! Set up the string descriptors for the key-name and the command 
, ere m 0406 1 ! string parameters. Also set up the attributes longword with the 
; $f8 . oe , noecho and noterminal flags. 
; 278 M0409 1 KEY_DESCCDSCSW_LENGTH] = XCHARCOUNT (KEYNAME) ; 
; 279 ™0410 1 KEY_DESCCDSCSA_POINTER] = UPLIT BYTE(ZASCII KEYNAME); 
; 280 m 0411 1 CMD_DESCCDSCSW_LENGTH] = XCHARCOUNT (COMMAND) ; 
; 281 La) be18 1 CMD_DESCCDSCSA_POINTER) = UPLIT BYTE(ZASCII1 COMMAND) ; 
: see " Rel? : ATTRIBUTES = FCAGS; 
: 284 M0415 1 
; iH z 9618 ' Call the Screen Management routine that defines a new keypad key. 
: 287 Ki $618 1 STATUS = SMGSADD_KEY_DEF (DBGSGL_KEY TABLE_ID, KEY DESC, .IF_PTR, 
; 288 M0419 1 ATTRIBUTES, CMD_DESC, .SET_PTR): 
; 89 M BeS$ 1 IF NOT .STATUS THEN SIGNAL(.STATUS); 
3 90 0421 1 END %; 


12 
DBGSCREEN 18-56 -1984 02:30:2 AX-11 Bliss-32 V4.0-74 Page 7 
Vv $605 1e-8ep-19 4 95:79:24 DEBUG. SRCTDBCSCHEEN. 03951 . (4) 
; 3 : ¢ ! GLOBAL ROUTINE DBGSKEY_INITIALIZE: NOVALUE = 
; 296 424 1 ! FUNCTION 
;. 29 425 1! This routine initializes the keypad by creating all of the ‘’built-in"’ 
; 4 § 1! predeclared keypad definitions. Each key definition is done by a call 
; @& 4 1! on the KEYPAD_DEF macro which then sets up the appropriate call on the 
; 298 0428 1! SMGSADD_KEY_DEF screen management routine to actually add the keypad 
3 0429 1! definition. 
; 300 0430 1! 
: 301 0431 1 ! INPUTS 
; we 04 § 1! NONE 
: 30 04 , } 
; 04 0434 1 ! OUTPUTS 
3 Oe 0435 1! NONE 
; 306 0436 1! 
; 307 0437 1 
; 508 0438 BEGIN 
3; 30 0439 
: 310 0440 LITERAL 
3 11 0441 2 DEFAULT = 0, ! The default keypad state (no color) 
; a6 Bete 2 GOLD = 1, ' The GOLD keypad state 
3 H 044 BLUE = 2; ' The BLUE keypad state 
; 314 0444 
; $15 0445 LITERAL ; 
; 316 0446 HO_TERM = . ! Echo command and terminate input 
3 37 0447 NOECRO_TERM o 3, ' Do not echo, but terminate input 
: 318 0448 ECHO_NOTERM = 0; ! Echo, but do not terminate input 
5 333 0449 2 
; 320 0450 2 LOCAL - 
: 321 0451 2 ATTRIBUTES, : Longword containing attribute flags 
; $56 bb 28 2 BLUE_DESC: BLOCK(8,BYTEI, ' String descriptor for BLUE keywor 
; i 04535 2 CMD _BESC: BLOCKC8 BYTE) ! DEBUG command string descriptor 
; 324 0454 2 GOLB_DESC: BLOCKC8,BYTE), i String descriptor for GOLD keyword 
3; «Bee 0455 § IF PTR ! Pointer to If-state string descriptor 
; 326 0456 KEY_DESC: BLOCK(8,BYTE], ' Keyname string descriptor 
3 Ser 0457 2 SET PTR, ! Pointer to Set-state string descriptor 
3 358 0458 2 STATUS; ' Status code from the SMG routine 
3 $3 0459 
3 H 0 0460 . : 
: % pee! Initialize all the string descriptors. 
3 335 es: GOLD_DESCCDSC$B_CLASS) = DSCSK_CLASS_S; 
: 334 0464 GOLD_DESCLDSC$B_DTYPE) = DSCSK_DTYPE_T; 
3 $2 465 GOLD_DESCCDSC$W_LENGTH] = 4; 
3 6 466 GOLD_DESCCDSCSA_POINTER) = UPLIT BYTE(ZASCII ‘GOLD"); 
3 Sor 0467 BLUE_DESCCDSC$B_CLASS] = DSCSK_CLASS_S; 
3s 338 0468 BLUE_DESCCDSC$B_DTYPE] = DSCSK_DTYPE_T; 
: 339 0469 BLUE_DESCCDSCS$W_LENGTH) = 4; 
; 340 0470 BLUE_DESCCDSCSA_POINTER) = yout BYTE(ZASCII “BLUE"); 
3 341 0471 KEY_BESCCOSC$B_CLASS] = DSCS$K_CLASS_S; 
: 43 47 KEY_DESCCDSCS$B_DTYPE) = DSCSK_DTYPE_T; 
: 34 47 CMD_DESCCDSC$B_CLASS] = DSCSK_CLASS_S; 
3 rt: it CMD_DESCCDSCSB_DTYPE] = DSCSK_DTYPE_T; 
: 34 47 
; 34 47 ' Define all ‘‘built-in’’ keypad keys which are pre-defined by DEBUG. 
; «64348 0478 2 ! First define the color keys GOLD and BLUE. 
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DBGSCREEN 1¢-300-1986 9: 29: :2 AX-11 Bliss-32 ve 0-748 Page 8 
v04-0 4-Sep-1984 17:4 DEBUG. SRC RCIDBGSCREEN.B3 31 (4) 
; 349 0479 ! 
8 50 480 KEYPA aDEF(, "PF1', ECHO_NOTERM, ero “GOOD: 
$ 2] 481 KEYPAD_DEF("GOLD’, ‘PF1', ECHO_NOTERM, ee, *@OLD°)s 
: é 4 ; KEYPAD-DEF("BLUE", 'PF1", ECHO-NOTERM, '*. 'GOLD'): 
5 04 KEYPA aDEF(, "PF4', ECHO_NOTERM, edt 1 he) 
; 54 0484 KEYPAD_DEF("BLUE’, ‘'PF4*, ECHO_NOTERM, *°.. *BLUE'): 
3 #1 bees KEYPAD “DEF ('GOLD', "PF4', ECHO_NOTERM, ey ET hy 
: 357 0487 
; 28 Oc8 Define the PF2 and PF3 keys in the first row of keypad keys. 
; 360 0490 KEYPAD -DEF(, *PF2', ECHO_TERM, ‘Help Keypad Nocolor' ); 
; 361 0491 KEYPAD_DEF('GOLD', "PFO", ECHO-TERM, ‘Help Keypad Go 
5 o¢ 049 KEYPAD_DEF("BLUE’, ‘'PF2*, ECHO_TERM, "Help Keypad Blue’): 
; 2 049 KEYPAD _DEF (, PFS*, ECHO_TERM, "Set Mode Screen’) 
; 364 0494 § KEYPAD “per (? GOLD', ‘PF3", ECHO TERM "Set Mode Noscreen ); 
; 365 0495 KEYPAD_DEF("BLUE', "PF3', NOECRO_ TERM, "Display/Generate'); 
Bo Bee 
3 $05 9844 § } Define the second row of keypad keys (keys 7, 8, 9, and MINUS). 
; 370 0500 KEYPA D_DEF ( *KP8', NOECHO_TERM, *Scroll/Up') 
; 371 0501 KEYPAD-DEF('GOLD’, 'KP8'. NOECHO-TERM, "Scroll/Top' 5; 
; 37 O30¢ J Ahan “DEF ("BLUE', *KP8', ECHO NOTERM, ree! 
. oy 050 KEYPAD_DEF(, "KP9", NOECRO_TERM "Display Nextdisp' de 
> 37% P 0504 KEYPAD “DEF (, “mis NOECRO_TERM, 
: 375 0505 ‘splay iNextdis At Fs; Select/Scroll %Curdisp"); 
s 376 P 0506 KEYPAD_DEF ("BLUE', ‘MING » NOECHO_T 
s ive 0507 2 "Display Src At H1, “Out At H2; Select/Scroll Src*); 
iB ey 
; ty B219 § Display the third row of keypad keys (keys 4, 5, 6, and COMMA). 
3; 382 b21§ 3 KEYPAD_ DEF(, *KP4', NOECHO_TERM, *Scroll/Left') 
3; 383 051 KEYPAD -DEF (° GOLD’, 'KP4', NOECHO™ TERM, *Scroll/Left:132"); 
3; «4384 0514 § KEYPAD_DEF("BLUE', ‘KP4', ECHO_NOTERM, ‘Scroll/Left ras 
: 385 0515 KEYPAD DEF (, *KP5', NOECRO_TERM, *Examine/Source -O\RPC"); 
3; 386 0516 2 KEYPAD— “perc? GOLD’, ‘KP5*, ECHO_T ° "Show Calls’ UF 
; 387 0517 § KEYPAD “DEF (' BLUE’, ‘KP5", ECHO TERM ‘Show Calls 3 di 
; 388 0518 KEYPAD_DEF ( KP6", NOECAO TERM,  'Scroll/Right') 
3; 389 0519 2 KEYPAD_DEF(*BLUE', 'KP6', ECHO NOTERM, scroll /Right 5; 
3 90 0520 KEYPAD_DEF(, "COMMA' , ECRO_TERM, ‘Go’ 
5 4 0393 
; B? G2 : Define the fourth row of keypad keys (keys 1, 2, and 3). 
: 395 b358 $ KE VAD _DEF(, "KP1", ECHO "Examine'); 
: 3% 0926 KEYPAD_DEF (¢ KP2', NOECROLTERR, ‘Scroll /Doun® 3 
3 97 527 KEYPAD_ “DEF('GOLD', "KP2*, NOECHO” TERM, "Scroll/Bottom! ); 
: 98 0528 KEYPAD DEF ("GLU UE’, "KP2", ECHO_NO ‘6 *Scroll/Down '); 
: 399 05¢9 KEYPAD_DEF (. "KP3", NOECRO_TERM,  ‘'Select/Scroll %Nextscroll"); 
; 400 0530 KEYPAD DEF('GOLD', ‘KP3", NOECHO_TERM, *Select/Output iNextoutput'); 
: rt 0332 KEYPAD_DEF("BLUE', ‘KP3*, NOECHO_TERM, "Select/Source %Nextsource'); 
: 40 5 
: 404 ba3z ' Define the fifth row of keypad keys (keys 0 and PERIOD). 
; 405 0535 : 


-——__--_-- ------- 


sae ae 


a 
Ww nm tt 8 I IOOO 
FUN [OD NOU PUN ODDIE WM ODR Ie 


pm fmf lola lololololololololeajleolelololololololelolololololo) 


AAO 
FUN OC OONOUE WN (OOS NOUNE WN OOOO 


=POPIPIPIPYDIPYPINIPYNIPYPIPINIPINIPINIPPPPoNnononnnyd 


| el el ee eee ae et et et at et et ae te et et et ot et ote et et tt et de 


Www 


45 


12 
1é-Se0-1964 02:40:21 YAK-11 BLigs-32 v4.0-742 


KEYPAD_DEF(, "KPO', ECHO_TERM, 'Step'); 
KEYPAD-DEF(‘GOLD', ‘KPO’, ECHO-TERM,  ‘Step/Into'); 
KEYPAD_DEF("BLUE', ‘KPO’, ECHO-TERM "Step/Over"); 
KEYPAD-DEF (, "PERIOD', ECHO_NOTERM, °'); 
KEYPAD-DEF('GOLD', ‘PERIOD’, ECHO-NOTERM, ''); 
KEYPAD-DEF("BLUE', ‘PERIOD’, ECHO-NOTERM, ''); 


Define the meanings of the control characters we use. 


KEYPAD_DEF ( , "CTRLW', NOECHO_TERM, 'Display/Refresh'); 
KEYPAD _DEF('GOLD’, ‘CTRLW*, NOECHO_TERM, ‘Display/Refresh'); 
KEYPAD_DEF("BLUE*, ‘CTRLW', NOECHO_TERM, ‘Display/Refresh'); 


! Define some of the eyes et keys found on the LK201 keyboard. These 
} keys are not available on the vT100. 


KEYPAD_DEF(, "HELP’, ECHO_TERM mete Keypad Summary") ; 
KEYPAD DEF (, "PREV_SCREEN’, NOECHO_TERM, ‘Scroll/Up’); 

KEYPAD-DEF (. "NEXT-SCREEN’, NOECHO-TERM, "Scroll/Down'); 
KEYPAD-DEF (. "SELECT', NOECHO_TERM, ‘Select/Scroll %Nextscroll"); 


ALL built-in keypad keys have been defined. Now return. 


RETURN; 
END; 
.TITLE DBGSCREEN 
SIDENT \V04-000\ 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
4C 4C 41 03 00000 P.AAA: ASCII <3>\ALL\ 
53 41 02 00004 P.AAB: .ASCII <22\A8\ 
54 41 02 00007 P.AAC: .ASCII <2>\AT\ 
4D 4F 54 54 GF 4g 06 OOO0A P.AAD: ASCII <6>\BOTTOM\ 
52 41 45 4C 43 O05 00011 P.AAE: <ASCII <S5>\CLEAR\ 
3A 01 00017 P.AAF: .ASCII <1>\:\ 
3¢ 01 00019 P.AAG: .ASCII <1>\.\ 
D 01 90018 P.AAH: .BYTE 1, 1 
4F 44 02 1D P.AAIL: ASCII <d>\DdO\ 
46E 57 4F 44 04 00020 P.AAJ: <ASCII <4>\DOWN\ 
3D 1 0025 P.AAK: ASCII <1>\=\ 
4 AT 52 Ae te tS ok Oe BOON DiAAN: CASEHE COO\NIDER 
59 52 4F 54 53 49 iB oF 60 g P.AAN: ASCII <7>\HISTORY\ 
54 55 50 af 49 05 99 P.AAO: . ASCII <5>\INPUT\ 
54 46 «6445 «44C «(04 «(00043 P.AAP: <ASCII <4>\LEFT\ 
28 01 04 P.AAQ: .ASCII <1>\(\ 
48 43 sf 48 52 41 4D 0B 4A P.AAR: ASCII <11>\MARK_CHANGE\ 
SF 4B 52 41 4D 4F 4E OD 056 P.AAS: ASCII <13>\NOMARK_CHANGE\ 
4C 41 4D 52 4F 4E 06 00064 P.AAT: ASCII <6>\NORMAL\ 
54 55 50 54 55 4F 06 0006B P.AAU: .ASCII <6>\OUTPUT\ 
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ae 7 05:79: 8 DEBUG. SRC Sacechcéw.o$5;1 
P.AEP: .ASCII \CTRLW\ 
P.AEQ: .ASCII Nor eprer/Retresn\ 
P.AER: .ASCII \HELP\ 
P.AES: .ASCII \Help Keypad Summary\ 
P.AET: .ASCII \PREV_SCREEN\ 
P.AEU: .ASCII \Scro rue) 
P.AEV: .ASCII \NEXT_SCREEN\ 
P.AEW: .ASCII \ScroTl/Down\ 
P.AEX: .ASCII \SELECT\ 
P.AEY: .ASCII \Select/Scroll %Nextscroll\ 
-PSECT DBGSOWN,NOEXE, PIC,2 
BOT_OFFSET: ‘ 
BOT_REF_FILEID: 
K 4 


BOT_REF _RECNUM: 
pecseL _vii00 FLAG: 
DBGSSCR_CURDISP_INPUT: 
DBGSSCR_CURDISP_QUTPUT: 
DBGSSCR_CURDISP_ SCROLL: 
DBGSSCR_CURDISP_SOURCE: 
DBGSSCR DISPLAY. IST: 
DBGSSCR_WINDOW_LIST: 
FIXED_SCROLL_AMOUNT : 
FIXED _SCROLL_VALID: 
INVSCR_FLAG’ . 


-BLK 4 
MARKLINE DISABLE FLAG: 
OLD_CNT:.BLKB 84 
OLD“REND: 


~~" {BLKB 4 
“BLK 
OLD_ SCREEN: 


<BLKB 2772 
OLD_SCREEN REND: 

-BCKB 2772 
OLD_VALID: 

-BLKB 3 

“BLKB 
PASTEBOARD: 

252 


J LK 
SAVED_SCROLL: 


Page 


~ 


seo 


~™N 


dB 
vd 


sane 


ee 


00000001 


00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


ep-i9be 19:17:45 


AX=11 BLi 
DEBUG. SRCJ 


-BLKB 4 
01758 SCREEN ~MODE puns! TIME: 
0175C SCROLL NAGUNT ‘ 
01760 SCROLL_TO Noe 
01764 TOP_OFFSET: 
-BLKB 4 
01768 TOP_REF -FILEID: 4 
0176C TOP_REF_RECNUM: 
-BLKB 4 
~PSECT DBGSGLOBAL,NOEXE, PIC,2 


00000 DBGSGL_SCREEN_ERROR: : 
00004 comepest on ihe 
00008 DBGSGL_ sthECN. INPUT: 
0000C DBGS$GL “stheen. LOG:: 
00010 DBGS$GL ~StREEN. MODE : 
00014 DBGSGL -SCREEN_NOGO: 
00018 DBGSGL_SCREEN_OUTPUT: 
0001¢ pacsx_stHf4 some: 


DBGSCS_ALL= P.AAA 
DBG$CS_AS= ~AAB 
DBGSCS_AT= P. AAC 
DBGSCS_BOTTOM= P.AAD 
DBGSCS_CLEAR= AA 
DBGSCS_COLON= P.AAF 
DBGSCS_COMMA= AA 
DBGSCS_CR= P.AAH 
DBGSCS_DO= P.AAI 
DBG$CS_DOWN= ~AAJ 
DBG$CS_EQUAL= P.AAK 
DBG$CS_GENERATE= P.AAL 
DBGSCS_HIDE= P.A 
DBGSCS_HISTORY= P.AAN 
DBGSCS_INPUT= P.AAO 
DBGSCS_LEFT= ~ AAP 
DBG$CS"LPAREN= P.AAQ 
DBGSCS~ MARK CHANGE = P.AAR 
DBGSCS_NOMARK _CHANGE= 
DBG$CS_NORMAL= ° 
DBG$CS"OUTPUT= P. AAU 
DBGS$CS_REFRESH= P.AAV 
DBGSCS_REGISTER= P. AAW 


-- 


Sec 13:17:43 EbRauG. SRcSbaGscReeN.039;1 toe 


HANDL 

ANEMORY DBGSGET_TEMPMEM 

ADD, BBGSNEWL! 

6$ H, DBGSNSAVE BREAK_BUFFER 

SEXTRN DBGSNSAVE_DECIMAL_INTEGER 
DBGSREC_MEMORY 


-EXTRN DBGSPRINT, 

LNUM_RANG 
oEXTRN DBGSSRC_ “I VPE- LNUM_ SOURCE 
EXTR MNAME 


mi 
“ 
Qa 
Aa 
“voUVUUUUUU 
© ee ee 


-EXTRN DBGSSRC_ 


4 D UAGE 

.EXTRN DBGSGL~ “EISHEAD. DBGSGL_DEVELOPER 
~EXTRN DBGS$GL-KEY 

~EXTRN SO CS SURE RARE. MOT BCSSRC _NEXT_LNUM 
-EXTRN DBGSSRC_TERM_WIDTH 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
O1FC 00000 -ENTRY DOGSKEY. INITIALIZE, Save R2,R3,R4,R5,R6,R7, oi 
9E 00002 MOVAB C TBSSIGNAL, R8 


9E 00009 MOVAB SMGSADD KEY_DEF 
MOVAB DBGS GL REY. TABLE 4b. R6 


0422 


“QaG) 


MOVL tHiatin GOLD DESC 
ie DEST? 
MOVL Fi 76947 4 BLUE E ADESC 
MOV n370,"c UE ees 
MOVAB bb 4 pn , SET_PTR 
694 
MOVAB P.ABJ, KEY_DESC+4 


MOVAB P.ABK, CMD_DESC+4 
CLRL ATTRIBUTES” 


W009 } CoS CO— MOOS 
PAWN MAAMO NOOO 


——O 
coco 
Pid 
m 
(=) 
— 
S 
-—"So O7"07"SO OOOO 
SOOWSF MOLLUS COOCSO 
COOoOOOoOoOoooOooooooo 
SOOOCSCSOOCOCCOOoOSooo 
Pete Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se 
Oo 
a 
o 
0 


Dn & & 
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B 13 
DBGSCREEN 16-Sep-1984 02:30:21 AX-11 Bliss-32 V4.0-74 Page 15 DBG 
yb 000 13=808- 1 3b 05:70:24 DEBUG SRC IDBCECHEEN. 63951 ~ -) v04 
53 DD 00058 PUSHL_ SET_PTR ; 
18 AE 9F 0005D PUSHAB CMD~DESC F 
08 AE OF 0060 PUSHAB ATTRIBUTES : 
54 DD 9006 USHL IF_PTR : 
16 AE 9F 00065 PUSHAB KEY_DESC ete 
56 DD 00068 PUSHL 6 ; 
67 06 FB D006, CALLS #6, SMGSADD_KEY_DEF : 
52 D0 006D MOVL RO. STATUS : 
05 28 E8 0007 LBS STATUS, 1$ : 
52 DD 0007 PUSHL STATUS : 
68 07 FB 0007 CALLS #1, LIBSSIGNAL : 
24 OC AE 9E 90078 1$ MOVAB  GOLD_DESC, IF_PTR + 0481 
3 OC AE 9E 0007C MOVAB GOLD DESC, SET_PTR : 
046 AE 03 BO 00080 MOVW #3, REY_DESC : 
08 AE 65 9E 00084 MOVAB P.ABL, REY_DESC+4 : 
14 AE B4 00088 CLRW  CMD_DESC : 
18 AE 03 AS 9E 0008B MOVAB P.ABM, CMD_DESC+4 : 
of D4 00090 CLRL ATTRIBUTES ; 
53 DD 00092 USHL  SET_PTR : 
18 AE SF 00094 PUSHAB CMD~DESC : 
08 AE 9F 00097 PUSHAB ATTRIBUTES : 
54 DD 0009A PUSHL IF_PTR : 
146 AE SF 0009C PUSHAB KEY_DESC : 
56 DD OO009F PUSHL 6 : 
67 06 FB OOOA1 CALLS #6, SMGSADD_KEY_DEF : 
52 50 DO O00A4 MOVL RO. STATUS ; 
05 52 EB OO0A7 BLBS STATUS, 2$ : 
52 DD OOOAA PUSHL STATUS : | 
68 01 FB OOOAC CALLS #1, LIBSSIGNAL : | 
54 1C AE 9E OOOAF 2$: MOVAB BLUE_DESC, IF_PTR > 0482, 
53 oc AE 9— 00083 MOVAB GOLD~DESC, SET_PTR : 
04 AE 03 BO 00087 MOVW , REY_DES : 
08 AE 03 AS 9E 000BB MOVAB P.ABN, REY_DESC+4 : 
14 AE B4 00000 CLRW C : 
18 AE 06 AS 9E 000C3 MOVAB P.ABO, CMD_DESC+4 : 
6f D4 000C8 CLRL ATTRIBUTES ; 
53 DD OOOCA SHL T_PTR : 
18 AE 9F O00CC PUSHAB CMD~DESC : 
08 AE 9F OOOCF PUSHAB ATTRIBUTES : 
54 DD 00002 PUSHL  IF_PTR ; 
146 AE 9F 000D4 PUSHAB KEY_DESC : 
56 DD 00007 PUSHL  R6 : 
67 06 FB 00009 CALLS #6, SMGSADD_KEY_DEF : 
52 29 D0 9900¢ MOVL RO, STATUS : 
05 52 EB OOODF LBS STATUS, 3$ : 
52 DD 000E2 PUSHL STATUS : 
68 07 FB O00E4 CALLS #1, LIBSSIGNAL : 
54 D4 OOOE7 3S: CLRL.OsdF : 0483 
53 1¢ AE 9E OO0E9 MOVAB BOE DESC, SET_PTR : 
04 AE 03 BO OO0ED MOVW #3, REY DES : 
08 AE 06 A5 9E 000F1 MOVAB P.ABP, REY_DESC+4 ; 
14 =A B4 O0F6 CLRW CMD DESC ; 
18 AE 09 AS 9E 000F9 MOVAB P.ABQ, CMD_DESC+4 : 
6 D4 OOFE R ATTRIBUTES : 
DD 0010 PUSHL SET_PTR : 
18 AE OF 00102 PUSHAB CMD~DESC : 
08 AE 9F 001 PUSHAB ATTRIBUTES : 


13 
DBGSCREEN 1b-se -1984 02:30:2 AX-11 Bliss-32 V4.0-74 Page 16 
v04=000 12-8 08- 1 3be 95:70:24 DEBUG. EROIDBGSCHEEY. 63551 ale. 
54 DD 00108 PUSHL IF_PTR : 
146 AE 9F OO10A PUSHAB KEY_DESC : 
56 DD 0010D PUSHL R64 : 
67 FB OO10F CALLS #6, SMGSADD_KEY_DEF : 
é D0 Oiie MOVL RO, STATUS : 
0 E8 0011 BLBS STATUS, 4$ ; 
52 DD 00118 PUSHL STATUS : 
be 01 FB OOI1A CALLS #1, LIBSSIGNAL ; 
54 1¢ AE 9E 0011D 4$ MOVAB BLUE_DESC, IF _PT + 0484 
53 1c at a 00121 MOVAB BLUE DESC, SET_PTR ; 
04 AE 03 BO 00125 MOVW #3, REY_DESC ; 
08 AE 09 AS 9E 00129 MOVAB P.ABR, REY_DESC+4 ; 
14 AE B4 0012E CLRW CMD DESC : 
18 AE OC AS 9E 00131 MOVAB P.ABS, CMD_DESC+4 ; 
6 D4 00136 CLRL ATTRIBUTES : 
53 DD 00138 PUSHL SET_PTR : 
18 AE 9F 0013A PUSHAB CMD~DESC ; 
08 AE 9F 00130 PUSHAB ATTRIBUTES ; 
54 DD 00140 USHL IF_PTR : 
14 AE 99F 00142 PUSHAB KEY_DESC 3 
56 DD 00145 PUSHL R6 : 
67 06 FB 00147 CALLS #6, SMGSADD_KEY_DEF : 
52 50 DO 0014A MOVL RO, STATUS : 
05 52 EB 0014D BLBS STATUS, 5$ ; 
52 DD 00150 PUSHL STATUS F 
7: 01 FB 00152 CALLS #1, LIBS$SIGNAL F 
54 OC AE 9E 00155 5$ MOVAB GOLD_DESC, IF_PTR + 0485 
53 iC AE 9E 00159 MOVAB BLUE DESC, SET_PTR : 
04 AE 03 BO 0015D MOVW #3, REY_D 3 
08 AE Oc AS 9E 00161 MOVAB P.ABT, REY_DESC+4 F 
14 AE B4 00166 CLRW mM : 
18 AE OF AS 9E 00169 MOVAB P.ABU, CMD_DESC+4 ; 
6E D4 0016E CLRL ATTRIBUTES ; 
53 DD 00170 SHL _PTR : 
18 AE 9F 00172 PUSHAB CMD~DESC : 
08 AE 9F 00175 PUSHAB ATTRIBUTES : 
54 DD 00178 PUSHL IF_PTR : 
14 AE 9F OO17A PUSHAB KEY_DESC ; 
56 DD 0017D PUSHL R6 : 
67 06 FB OO17F CALLS #6, SMGSADD_KEY_DEF ; 
52 50 D0 00182 MOVL RO, STATUS ; 
05 52 £8 0018 BLBS STATUS, 6$ F 
52 DD 00188 PUSHL STATUS : 
68 01 FB OO18A CALLS #1, LIBSSIGNAL : 
3 7C 0018D 6$ CLRO set _p : 0490 
04 AE 03 BO 0018F MOVW #3, "KEY_DESC ; 
08 AE OF Ad i 00193 MOVAB P.ABV, REY_DESC+4 : 
14 AE 13 : 00198 MOVw «6 #19, € ¢ ; 
18 AE 12 ad 9E 0019C¢ MOVAB P.ABW, CAD DESC+4 : 
6E 08 DO O01A1 MOVL #2, ATTRIBOTES : 
53 DD OO1A4 PUSHL SET_PTR : 
18 AE 9F 001A6 PUSHAB CMD~DESC : 
08 AE 9F 001A9 PUSHAB ATTRIBUTES ; 
54 pp OIAC PUSHL : 
16 AE OF OOTAE PUSHAB KEY_DESC ; 
56 DD 00181 PUSHL ; 
67 06 FB 001B3 CALLS #6, SMGSADD_KEY_DEF : 
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13 
DBGSCREEN ihese - 
Mita 14-Sep- 

54 OC AE 9E 00265 10$: 
535 D4 8 69 
046 AE 0 4 68 
08 AE 5D = AS 3 0 of 
14 AE 11 BO 00274 
18 AE 60 AS 43 8 78 
6E 9 DO 00270 
DD tH 80 
18 AE 9F 00 Ht 
08 AE 9F 0028 
54 DD 00288 
14 AE OF 88 bs 
56 DD 00280 
67 06 FB 0028F 
52 50 D0 00 3 
05 52 €8 0029 
52 DD 00298 
68 01 FB BR Sen 
54 1C af 9E 0029D 11$: 
53 D4 002A1 
04 AE 03 BO 002A3 
08 AE 71 AS YE 002A7 
14 AE 10 BO OO2AC 
18 AE 74 AS YE 002B0 
6E 03 bdO 00285 
53 DD 00288 
18 AE 9F OO2BA 
08 AE 9F 002BD 
54 DD 002C0 
14 AE OF ORscs 
56 DD 002C 
67 06 FB 002C7 
52 50 DO OO2CA 
05 52 €8 002CD 
52 DD 00200 
68 01 FB 00202 
53 7C 00205 12$: 
04 AE 03 B80 00207 
08 AE 0084 CS 9E Baspe 
14 AE 09 BO 002E1 
18 AE 0087 C5 9E baSee 
6E 03 DO O02EB 
ve fe Sa 
08 AE 9OF 60 fg 
54 DD 002F6 
14 AE 9F 002F8 
56 DD 8° FB 
OS 08 Bien 
05 25 E8 00 88 
52 Dd 00 Se 
68 01 FB 0030 
54 OC § AE 9E 00308 138: 
06 AE 03 BO 00311 
08 AE 0090 ¢ er 00315 


pa19B4 19:17:45 EDEBUG. SRCSDBGSCREEN. 03251 


GOLD DESC, IF_PTR 


#3, KEY_DESC 
P.ACD, REY _DESC+4 
wi7, €MD_DESC 
" 
SET_PT 
CMD-DESC 
ATTRIBUTES 

IF_PTR 
KEY _DESC 
#6, SMGSADD_KEY_DEF 
RO, STATUS 

STATUS, 11$ 

STAT 
#1, LIBSSIGNAL 
BLUE_DESC, IF_PTR 
SET PIR 
#3, KEY_DESC 
P.ACF, REY_DESC+4 
#16, CMD DESC 
P.ACG, CAD _DESC+4 
#3, ATTRIBOTES 
SET_PTR 

CMD~DESC 
ATTRIBUTES 

F_PTR 
KEY_DESC 
#6, SMGSADD_KEY_DEF 

* STATUS 

STATUS, 12$ 
STATUS 
#1, LIBSSIGNAL 
SE _PTR 
#3, KEY_DESC 
P.ACH, REY_DESC+4 
#9, C 


AcI, CMD DESC+4 
ATTRIBOTES 
SET_PT 


D~DESC 
ATTRIBUTES 
F_ PTR 
KEY _DESC 
#6, SMGSADD_KEY_DEF 
RO U 
STATUS, 13$ 
TAT 


5 
#1, LIBSSIGNAL 
GOLD DESC, IF_PTR 


ser 
#3, KEY DESC 
P.ACJ, REY_DESC+4 


Pe Se Se Se Se See Be See Se Be Se Se Be Se Se Be Se Be Se Se Be Se Os Be Se Be Be Be Se Se Be Be Se Se Se Be Fe Se Se Fe Se Fe Fe Se Se Fe Se Se Fe Fe Be Se Be Fe Se 


0495 


0500 


0501 


<2 | 
i): 


Pe Se Se Be Se Se Se Se Fe Se Be FH Se Se Se SH Se Se SH Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se TH Se ee FHSS Se we 


tg Sa 
v04-00 


1 
1 
14 AE QA BO 00318 
18 AE 0093 ¢ 5 O31 
6E DO 00325 
DD 00328 
18 AE 9F QO32A 
08 AE 9F 0032D 
54 DD 00330 
14 AE YF 00 ¢ 
56 0D 8 
67 98 FB 00337 
52 Q DO 0033A 
05 25 E8 88 D 
52 DD 00340 
68 01 FB ae 
54 1¢ a FE 00345 148: 
53 D4 00349 
4 AE 03 BO 00348 
08 AE 009D C5 YE 0034F 
14 AE OA B80 00355 
AE QOAO 3 ¢€5 9E 00359 
gf D4 0035F 
53 DD 00361 
18 AE 9F 00363 
08 AE 99F 00366 
54 0D 00369 
14 AE 9F 00368 
56 DD 0036E 
67 06 FB 00370 
52 50 D0 00375 
05 52 €8 00376 
52 DD 00379 
68 01 FB 00378 
53 7C OO37E 15$: 
04 AE 03 B80 00380 
08 AE QOAA C5 9E 00384 
14 AE 11 BO 0038A 
18 AE QOAD C5 YE 0038E 
6E 03 dO 00394 
53 DD 00397 
18 AE 9F 00399 
08 AE 99F 0039C 
54 DD 0039F 
14 AE 9F QO3A1 
56 OD OR eae 
67 06 FB 003A6 
52 50 DO 003A9 
05 2§ E8 OOSAC 
92 DD OOSAF 
68 4 FB 00381 
3 7C 00384 168: 
04 AE 05 BO 00386 
08 AE OOBE (C5 43 O3BA 
14 AE 2F 8 03C0 
18 AE 00c3 5 f 03¢4 
6E ; D 8 CA 
DD CD 
18 AE 9F OOSCF 


F 13 
eaSep-1986 a:iias — UbEBU 


1 aS aS V4.0-74 
G. SRCJDBGSCREEN.B32; 1 
Ovw #10, CMD_DESC 
MOVAB P.ACK, CMD_DESC+4 
OVL #3, ATTRIBOTES 
PUSHL SET_PTR 
PUSHAB CMD~DESC 
PUSHAB ATTRIBUTES 
PUSHL IF_PTR 
PUSHAB KEY_DESC 
PUSHL R6 
CALLS #6, SMGSADD_KEY_DEF 
MOVL RO, STATUS 
BLBS STATUS, 14 
PUSHL STATUS 
CALLS #1, LIBS$SIGNAL 
MOVAB RLUE_DESC, IF_PTR 
CLRL SET _PIR 
MOVW #3, KEY_DESC 
MOVAB P.ACL, REY_DESC+4 
MOVW #10, CMD DESC 
MOVAB P.ACM, CAD_DESC+4 
CLRL ATTRIBUTES 
PUSHL  SET_PTR 
PUSHAB CMD~DESC 
PUSHAB ATTRIBUTES 
USHL IF_PTR 
PUSHAB KEY_DESC 
PUSHL  R6 
CALLS #6, SMGSADD_KEY_DEF 
MOVL RO, STATUS 
BLBS STATUS, 15$ 
PUSHL  5T 
CALLS #1, LIBSSIGNAL 
CLRO f_PTR 
MOVW #3, ~KEY_DESC 
MOVAB P.ACN, REY_DESC+4 
MOVW #i7, CMD DESC 
MOVAB P.ACO, CAD DESC+4 
MOVL #3, ATTRIBOTES 
PUSHL SET_PTR 
PUSHAB CMD~DESC 
PUSHAB ATTRIBUTES 
PUSHL IF PTR 
PUSHAB KEY_DESC 
PUSHL R 
CALLS #6, SMGSADD_KEY_DEF 
MOVL RO. STATUS 
BLBS STATUS, 16$ 
PUSHL STAT 
CALLS #1, LIBSSIGNAL 
CLRO _PTR 
MOVW #5, ~KEY_DESC 
MOVAB P.ACP, REY _DESC+4 
MOVW #47, CMD DESC 
MOVAB P.ACQ, CMD DESC+4 
MOVL #3, ATTRIBOTES 
PUSHL SEf_PT 
PUSHAB CMD~DESC 


Pee Re Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Be Be Be Se Se Se Se Se Se Be Be Se Be Be Fe Be Se Be Fe Ge Se Be Ge Be Se Se Se Se Se Se Se Be Se 


0502 


0503 


0505 


c-— 
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| DBGSCREEN 
v04-000 
08 
14 
: 
88 
68 
54 1C 
04 AE 
08 AE OOF 2 
14 AE 
18 AE OOF7 
6E 
18 
08 
14 
67 
52 
05 
68 
04 AE 
08 AE 0126 
14 AE 
18 AE 0129 
6E 
18 
08 
14 
67 
52 
05 
68 
54 oc 
04 AE 
08 AE 0134 
14 AE 
18 AE 0137 
6E 
18 
08 
14 


18. 3-19 


14-Sep-1984 

AE 9F 0030 
54 DD 0030 
AE 9F 0030 
56 DD OO3DA 
98 4 030C 

DO OO3DF 
52 €8 00 Eg 
52 DD OO3E 
01 FB 003E7 
a 9E OOSEA 178: 
53 D4 00 EF 
05 +4 68 F 
CS 9E 003F4 
2F B60 Beare 
C5 4 OOSFE 
03 DO 00404 
53 DD 00407 
AE 9F 00409 
AE 9F 0040C 
54 DD 0040F 
AE 9F 00411 
56 DD 00414 
06 FB 00416 
50 DO 00419 
52 €8 O0041C 
52 DD O041F 
01 FB Ones, 
53 7C 00424 18$: 
03 BO 00426 
C5 9E 0042A 
0B B0 00430 
CS 9E 00434 
03 DO Q043A 
53 DD 0043D 
AE 9F 0045F 
AE 9F opt 
54 DD 0044 
AE 9F 00447 
56 DD 0044A 
06 FB 0044C 
50 DO 0044F 
52 £8 Ope ee 
52 DD 0045 
01 FB pees 
4 9E 0045A 198: 
53 D4 Boteh 
03 BO 0046 
C5 9E 00464 
OF BO 0046A 
¢5 ‘ rk 
93 DO 00474 

DD 00477 
AE 9F 00479 
AE 9F 0047C 
54 0D Beat 
AE 9F 00481 
56 DD 00484 


UBF aS 


PUSHAB 
PU 


AX-11 ET V4.0-74 
DEBUG. SRC ]DBGSCREEN.B32; 1 
ATTRIBUTES 
Kev. DESC 


i. § SMGSADD _KEY_DEF 
Tus ~ 
STATUS. 35 
STATU 
#1, LIBSSIGNAL 
BL Ue DESC. IF _PTR 
#5, KEY_DESC 
P.ACR, REY_DESC+4 
#47, €MD_DESC 


CMD" DESC 

ATTRIBUTES 

IF _PTR 

Key. DESC 

ae, SMGSADD _KEY_DEF 
RO, Tus 

STATUS, Bs 


#1 T etteaiaies 


cM Sc 
se areares 
PTR 
KEY_DESC 
#6, SMGSADD_KEY_DEF 
RO, Tus 
Hk: f 19$ 


ATUS 
#1, LIBSSIGNAL 
otD,pESC. IF PTR 


“KEY_DESC 

jAcv REY DESC+4 

#i5 Vem DESC 

4 atw CAD gbescrs 
3, atTR 


st DESC 
ATTRIBUTES 
KEY DESC 
R6 


Pa 20 
wit (4) 
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DBGSCREEN 
v04-0 DEBUG. SRC JDBGSCREEN. vO 


H 13 

IESERI9RE QBERVERL  WOBGLG.SAESHGRECHEERTSS,, PNB 
$ CALLS +e SMGSADD_KEY_DEF 
m RO, STATUS 


gf 9 F 4 : 
: DO 604 OVL : 
0 > E8 0048C LBS STATUS, 20$ : 
DD 0048F PUSHL STATUS : 41 

68 07 FB 0491 CALLS #1, LIBSSIGNAL : 

54 1C AE 9E 00494 20$:  MOVAB BLUE_DESC, IF_PTR + 0514 
53 04 00498 CLRL SET_PTR : 
04 AE 03 BO 0049A MOVW #3,~KEY_DESC : 
08 AE 0146 C5 9E 0049E MOVAB P.ACX, REY_DESC+4 : 
14 AE 0¢ B0 OO4A4 MOVW #i2, CMD DESC : 
18 «AE 0149 C5 9E 004A8 MOVAB P.ACY, CAD_DESC+4 ; 
$f D4 OO4AE CLRL ATTRIBUTES : 
DD 0048 PUSHL SET_PTR : 
18 AE OF b4Be PUSHAB CMD~DESC ; 
08 AE 9F 0048 PUSHAB ATTRIBUTES : 
54 0D 00488 PUSHL IF_PTR : 
146 AE 9F OO4BA PUSHAB KEY_DESC ; 
56 DD 0048D PUSHL  R6 F 
67 06 FB 004BF CALLS #6, SMGSADD_KEY_DEF : 
52 50 DO 004C2 MOVL RO, STATUS F 
05 3g E8 004C5 BLBS STATUS, 21$ : 
52 DD 00468 PUSHL STATUS ; 
68 01 FB OO4CA CALLS #1, LIBSSIGNAL ; 

53 7C 004CD 21$: CLRO f_PTR : 0515 
04 AE 03 BO 004CF MOVW #3, ~KEY_DESC : 
08 AE 0155 C5 9E 00403 MOVAB P.ACZ, REY_DESC+4 : 
14 AE 15 BO 00409 MOVW #21, CMD DESC j 
18 AE 0158 ¢5 9E 004DD MOVAB P.ADA, CMD _DESC+4 ; 
6 03 DO 004E3 MOVL #3, ATTRIBOTES : 
53 DD 00456 PUSHL  SET_PTR : 
18 AE 9F 004E8 PUSHAB CMD~DESC ; 
08 AE SF OO04EB PUSHAB ATTRIBUTES : 

54 DD OO4EE PUSHL IF_PTR ; : 

14 AE 9F 004FO PUSHAB KEY_DESC ; 
56 DD 004F3 PUSHL : 
67 06 FB 00465 CALLS #6, SMGSADD_KEY_DEF ; 
52 50 D0 004F8 MOVL RO, STATUS : 
05 52 €8 O04FB BLBS STATUS, 22$ : 
52 DD OO4FE _ PUSHL STATUS F 

68 01 FB 90500 CALLS #1, LIBSSIGNAL ; | 

54 0c AE 9E 00503 22$:  MOVAB GOLD DESC, IF_PTR : 0516. 

53 04 00507 CLRL SET PIR ; | 
04 AE 03 BO 00509 MOVW #3, ~KEY_DESC F 
08 AE 016D cs 43 09500 MOVAB P.ADB, REY_DESC+4 F 
14 AE A BO 0051 MOVW #10, €MD_D ; 
18 AE 0170 «6¢5 i 00517 MOVAB P.ADC, CAD _DESC+4 ; 
6E 0@ DO 0051D MOVL #2, ATTRIBOTES ; 
53 DD 09 0 PUSHL SET_PTR ; 
18 AE 9F 005 : PUSHAB CMD~DESC : 
08 AE 9F 005 PUSHAB ATTRIBUTES ; 
54 DD 00528 PUSHL IF_PTR ; 
14 AE 99F OOS2A PUSHAB KEY_DESC 3 
56 DD 0052D PUSHL R6 ; 
67 06 FB 005eF CALLS #6, SMGSADD_KEY_DEF : 
52 D 09 ? MOVL RO. STATU ; 
05 3g E 5 BLBS STATUS, 23$ : 
52 DD 00538 PUSHL STATUS ; 
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Mp 500 once 1 8be 95i79i2 DEBUG. SRC IDBGSCREEN.B32; 1 mr 


68 01 FB 534 CALLS #1, LIBSSIGNAL : 
4 10 «AE OE 2 D 23$:  MOVAB BLUE DESC, IF_PTR + 0517 
53 D4 00541 CLRL eT : 
04 AE 03 80 0943 MOVW #3, ~KEY_DESC : 
08 AE 017A CC : 054 MOVAB P.ADD, REY_DESC+4 ; 
14 AE Of 2 054D MOVW #i2, CMD_DESC : 
18 AE 017 +¢ : 0551 MOVAB P.ADE, CAD DESC+4 : 
6E 0¢ D0 00557 OVL #2, ATTRIBOTES ; 
DD 0055A PUSHL SET_PTR : 
18 AE OF 005%¢ PUSHAB CMD~DESC F 
08 AE 9F 0055F PUSHAB ATTRIBUTES : 
54 20 00962 PUSHL IF _PTR : 
16 AE 9F 00564 PUSHAB KEY_DESC : 
56 DD 00567 PUSHL  R6 ; 
67 06 FB 00569 CALLS #6, SMGSADD_KEY_DEF : 
52 50 DO 0056¢ MOVL RO. STATUS ; 
05 2g EB 0056F BLBS STATUS, 24$ : 
52 DD 00572 PUSHL STATUS : 
68 01 FB 00574 CALLS #1, LIBSSIGNAL F 
53 7C 00577 248: CLRO Set. : 0518 
04 AE 03 B80 00579 MOVW #3, ~KEY_DESC : 
08 AE 0189 ¢5 9 0057D MOVAB P.ADF, REY_DESC+4 : 
14 AE 0¢ B80 00583 MOVW #i2, CMD DESC : 
18 AE 018¢ C5 9E 00587 MOVAB P.ADG, CAD DESC+4 : 
6E 03 DO 0058p MOVL #3, ATTRIBOTES ; 
53 DD 00590 PUSHL SET PIR : 
18 AE 9F 00592 PUSHAB ay DESC : 
08 AE 9F 00595 PUSHAB ATTRIBUTES : 
54 DD 00598 PUSHL IF_P : 
146. AE 9F 0059A PUSHAB Kev. bese : 
56 DD 0059D PUSHL R : 
67 06 FB 0059F CALLS #6, SMGSADD_KEY_DEF : 
52 50 DO 005A2 MOVL RO. STATUS : 
05 52 £8 005A5 BLBS § STATUS, 25$ ; 
52 DD 005A8 PUSHL STATUS : 
68 01 FB OOSAA CALLS #1, LIBSSIGNAL : 
54 1C AE 9E 005AD 25$:  MOVAB BLUE DESC, IF_PTR : 0519 
53 D4 00581 CLRL SET_PTR F 
04 AE 03 BO 00583 MOVW #3. “KEY_DESC : 
08 AE 0198 ¢5 9E 00587 MOVAB B- ADH inky DESC +4 : 
14 AE 0D B60 005B8D MOVW #i3. dE é 
18 AE 0198 C5 9€ 005C1 MOVAB PLA "eA _DESC+4 : 
66 D4 005C7 CLRL p.ABL : 
53 DD b09¢9 PUSHL TPT F 
18 AE 9F 005¢B PUSHAB CMD~DESC : 
08 AE 9F OOSCE PUSHAB ATTRIBUTES : 
54 DD 005D1 PUSHL IF_PTR : 
14 AE 9F 00503 PUSHAB KEY_DESC : 
56 DD 00506 PUSHL : 
67 06 FB 00508 CALLS #6, SMGSADD_KEY_DEF : 
52 50 DO 00508 MOVL * STATUS : 
05 3g E8 005DE BLBS STATUS, 26$ : 
52 0D 005€1 PUSHL STATUS : 
68 or FB 005E3 CALLS #1, LIBSSIGNAL : 
3 7C 0566 26$:  CLRO > 0520 
04 AE 05 80 5E8 MOVW “KEY_DESC ; 
08 AE 01a8 §=6C5—so9E «(00SEC MOVAB p> ADJ, Rey “DESC +4 : 
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-$ep-1984 02:30:2 AX-11 Bliss-32 V4.0-74 Page 23 dB 
=3e 71382 1 30:74 DEBUG. SRCJDBGSCREEN.B32;1 9 a) vo 

MOVW #2, CMD_DESC ; ; 
MOVAB P.ADK, CMD_DESC+4 3 3 
MOVL #2, ATTRIBOTES : ; 
PUSHL SET_PTR : ; 
PUSHAB C ; ; 
USHAB ATTRIBUTES : ; 
PUSHL : F 
PUSHAB KEY_DESC ; ; 
PUSHL R : $ 
CALLS #6, SMGSADD_KEY_DEF ; F 
MOVL RO, STATUS ; F 
BLBS § STATUS, 27$ ; ; 
PUSHL STATUS : ; 
CALLS #1, LIBSSIGNAL : ; 
27$:  CLRQ SET_PTR : 0525 ; 
MOVW #3, KEY_DESC F ; 
MOVAB P.ADL, REY_DESC+4 ; : 
MOVW #7, CMD_DESC 3 F 
MOVAB P.ADM, CMD DESC+4 ; F 
MOVL #2, ATTRIBOTES ; ; 
PUSHL SET_PTR ; ; 
PUSHAB CMD_DESC $ : 
PUSHAB ATTRIBUTES 3 i 
PUSHL IF_PTR ; ; 
PUSHAB KEY_DESC 3 
PUSHL R : 
CALLS #6, SMGSADD_KEY_DEF ; 
MOVL RO, STATUS ; 
BLBS § STATUS, 28$ ; 
PUSHL STATUS : 41 
F CALLS #1, LIBSSIGNAL F 
28$: CLRO 3 SET_. : 0526 
4 MOVW #3, KEY_DESC ; 
MOVAB P.ADN, REY_DESC+4 5 
MOVW #11, CMD_DESC 3 
MOVAB P.ADO, CAD DESC+4 ; 
MOVL #3, ATTRIBOTES ; 
PUSHL SET_PTR : 
PUSHAB CMD~DESC ; 
PUSHAB ATTRIBUTES ; 
PUSHL IF_PTR ; 
PUSHAB KEY_DESC ; 
PUSHL R ; 
CALLS #6, SMGSADD_KEY_DEF ; 
MOVL RO, STATUS ; 
BLBS STATUS, 29$ ; 
PUSHL STAT ; 
CALLS #1, LIBSSIGNAL ; 
29$:  MOVAB GOLD DESC, IF_PTR : 0527 
CLRL set BIR : 
MOVW #3, KEY_DESC : 
MOVAB P.ADP, REY _DESC+4 F 
MOVw #13, €MD_D ; 
MOVAB P.ADQ, CAD DESC+4 ; 
MOVL #3, ATTRIBOTES F 
PUSHL SET_PTR ; 
PUSHAB CMD~DESC : 
| 
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30$: 


31$: 


32$: 


PUSHAB 
P 


9b 18:17:45 — EOeBuG. Sacioaasceet 


ATTRIBUTES 

Kev. DESC 

ms. seer. KEY_DEF 
STATUS, 30$ 

STAT 

#1, LIBSSIGNAL 

BLUE DESC, IF_PTR 


ESC 
Rey DESC +4 
se DESC 
aoe -DESC+4 


ase rite KEY_DEF 
STATUS. 31$ 

grates 

se no 


“KEY_DESC 
P ADT. REY DESC +4 


#25. uf D 

P.ADU, CAD DESC+4 
A ORTTRIBOTES 
SET_PTR 


CMD _DESC 
ATTRIBUTES 
F PTR 
SY DESC 
i. eee KEY_DEF 
STATUS 


RO, 
STATUS, 335 
STA 


U 
#1, LIBSSIGN 
GOLD DESC, iF PTR 
SET_PTR 


a “KEY_DESC 
ADV Rey DESC +4 
435, émp DESC 

Abw CAD de sees 
As Al Afra 


EMD DESC 
ATTRIBUTES 
KEY_DESC 
R6 
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Mivetit 12-8 08- 1 9b 05:70:84 EoeBUG. SRC DBGSCREEN.B32;1 ee 
$7 F 0750 CALLS #6, SMGSADD_KEY_DEF : 
: D 760 MOVL RO, STAT : 
0 E8 0076 LBS STATUS, 33$ : 
DD 166 PUSHL ATUS : 
8 O01 FB 0076 CALLS #1, LIBSSIGNAL : 

4 1C AE 9E 00768 33$:  MOVAB BLUE_DESC, IF_PTR + 0531 
53 D4 O76F CLRL eT PTR : 
04 AE 03 BO 00771 MOVW #3, KEY_DES : 
08 AE O21e 5 3 0775 MOVAB P.ADX, REY _DESC+4 : 
14 AE 19 B60 00778 MOVW #25, CMD_D : 
18 AE 0221 ¢5 i 0077F MOVAB P.ADY, CMD DESC+4 : 
6E 03 D 00785 VL #3, ATTRIBO : 
DD 00788 PUSHL f_PTR : 
18 AE 9F 0078A PUSHAB (CMD~DESC : 
08 AE 9F 0078D PUSHAB ATTRIBUTES ; 
54 Dd 00790 PUSHL PTR : 
14 AE OF 00792 PUSHAB KEYV_DESC : 
56 DD 0079 PUSHL R6 : 
67 06 FB 00797 CALLS #6, SMGSADD_KEY_DEF : 
52 50 DO 0079A MOVL RO, STATUS F 
05 52 €8 00790 LBS STATUS, 34$ : 

52 DD 007A0 PUSHL STATUS ; | 
a8 01 FB O07A2 CALLS #1, LIBSSIGNAL : 

53 7C O007A5 348: CLRO t_PTR + 0536 
06 AE 03 BO 007A7 MOVW #3, KEY_DESC : 
08 AE 023A C5 9E 007AB MOVAB P.ADZ, REY_DESC+4 ; 
14 AE 04 80 00781 MOVW 80s #4, : 
18 AE 0230 C5 9E 00785 MOVAB P.AEA, CMD_DESC+4 : 
6E 02 DO 00788 MOVL #2, ATTRIBOTES : 
53 DD 007BE PUSHL SET_PTR : 
1 AE 9F 007C0 PUSHAB CMD~DESC ; 
0 AE 9F 007C3 PUSHAB ATTRIBUTES 3 
54 DD 007C6 PUSHL R : 
14 AE 9F 007C8 PUSHAB KEY_DESC ; 
56 DD 007CB PUSHL  R6 ; 
67 06 FB 007CD CALLS #6, SMGSADD_KEY_DEF : 
52 50 pO 00700 MOVL RO, STATUS : 
05 52 £8 007D3 BLBS STATUS, 35$ : 
52 DD 00706 PUSHL STATUS ; 
a8 01 FB 00708 CALLS #1, LIBSSIGNAL : 

54 0c AE 9€ 007DB 35$:  MOVAB GOLD_DESC, IF_PTR : 0537. 

53 D4 O07DF CLRL & ; | 
04 AE 03 BO 007E1 MOVW #3, ~KEY_DESC ; 
08 AE 0241 ¢5 3 OO7E> MOVAB P.AEB, REY _DESC+4 ; 
14 AE 09 8 7EB MOVW #9, CMD_DESC 3 
18 AE 0244 C5 9E OO7EF MOVAB P.AEC, CMD _DESC+4 : 
6E 0¢ DO 007F5 MOVL #2, ATTRIBOTES ; 
53 DD O07F8 PUSHL SET_PTR ; 
18 AE 9F OO7FA PUSHAB CMD~DESC ; 
08 AE 9F OO7FD PUSHAB ATTRIBUTES : 
54 pp 0800 PUSHL : 
14 AE 9F 0080 PUSHAB KEY_DESC : 
56 DD 0080 PUSHL R ; 
67 06 FB 0080 CALLS #6, SMGSADD_KEY_DEF : 
52 DO 0080A MOVL RO, STATUS ; 
0 2g £8 0080D BLBS STATUS, 36$ ; 
DD 00810 PUSHL STATUS ; 
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Mb 000 14- at y 5: 39: 24 DEBUG. SRCID BSCR EEN. "B9351 - 3 
$8 01 FB 0812 CALLS #1, LIBSSIGNAL : 

4 1c «=AE OSE 081 36$ MOVAB BLUE_DESC, IF_PTR + 0538 
53 04 00819 CLRL fT : 
04 AE 0 80 0818 MOVW #3, ~KEY_DESC ; 
08 AE 024D ¢% : O81F MOVAB P.AED, REY_DESC+4 : 
14 AE 9 8 0825 MOVW #9, CMD DESC ; 
18 «AE 0250 ¢5 : 0829 MOVAB P.AEE, CMD DESC+4 ; 
4E 08 D 008 F MOVL #2, ATTRIBOTES : 
53 DD 00832 PUSHL SET_PTR : 
18 AE OOF 008 4 PUSHAB ay DESC ; 
08 AE 9F 00837 PUSHAB ATTRIBUTES : 
54 po OOBSA PUSHL T : 
14 AE 9F 0083C PUSHAB KEY_DESC 3 
56 DD 0083F PUSHL R ; 
67 06 FB 00841 CALLS #6, SMGSADD_KEY_DEF : 
32 50 DO 00844 MOVL US ; 
0 3g E8 00847 BLBS ByATOS. 37$ F 
52 DD 0084A PUSHL STATUS : 
68 01 FB 0084C CALLS #1, LIBSSIGNAL ; 

53 7C OO84F 37$:  CLRO + 0539 

04 AE 06 BO 00851 MOVW #6, “KEY_DESC ; | 
08 AE 0259 ¢5 9E 00855 MOVAB P Ace REY _DESC+4 : 
14 AE B4 00858 CLRW = CMD ; 
18 AE O25F C5 9E 0085E MOVAB Pn AES CHD DESC +4 : 
6E D4 00864 CLRL ATTR RIBUT : 
53 DD 00866 PUSHL Set PT Sis : 
18 AE 9F 00868 PUSHAB CMD~DESC ; 
08 AE 9F 00868 PUSHAB ATTRIBUTES ; 
54 DD OO086E PUSHL IF_PTR : 
14 AE 9F 00870 PUSHAB KEY DESC F 
56 DD 00873 PUSHL ; 
67 06 FB 00875 CALLS Be. SMGSADD_KEY_DEF : 
52 50 D0 00878 MOVL RO, STATUS : 
05 52 €8 00878 BLBS STATUS, 38$ : 
52 DD O087E PUSHL STATUS F 
68 01 FB 00880 CALLS #1, LTIBSSIGN NAL F 

54 0c AE 9€ 00883 38$:  MOVAB GOLD DESC, IF_PTR + 0540 
53 04 00887 CLRL T_PTR : 
04 AE 06 BO 00889 MOVW #6, “KEY D ESC ; 
08 AE 025F CS 9E 0088D MOVAB Rey “DESC +4 ; 
14 AE B4 00893 CLRW CAD C : 
18 AE 0265 C5 9E 00896 MOVAB cn CHD _DESC+4 ; 
66 D4 0089C CLRL AIT: RIBUT ; 
5 BD 00895 PUSHL SET_PT : 
18 AE 9F OOBA PUSHAB CMD “DESC : 
08 AE 9F OO8A3 PUSHAB ATTRIBUTES ; 
54 DD 008A6 PUSHL IF_PTR ; 
16 AE OF OOBAB PUSHAB KEY_DESC ; 
56 DD OO8AB PUSHL ; 
67 06 FB OO8AD CALLS 4&6, SHGSADD _KEY_DEF ; 
52 3 D 0880 MOVL RO, ; 
05 3 E8 0088 BLBS RTATUS. 9$ ; 
52 OD 6 BG PUSHL st ATU ; 
68 01 FB 0088 CALLS . LIBSSIGN : 

4 1C AE 9€ 008BB 39$:  MOVAB +H Ue DESC, ir ‘PIR > 0541 
53 04 O008BF CLRL = SET_ : 
04 AE 06 BO 008C1 MOVW 3. “rey _DESC : 
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1o-308- 1 3be 06: 70:2 DEBUG. SRC Seeecheen.o39s1 . (4) 
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0265 CS 9 BCs MOVAB P.AEJ, KEY_DESC+4 ; 
14 Ag 2 CB CLRW = CMD : 
0268 C5 OF OBCE MOVAB P.AEK, CMD_DESC+4 : 
$f D4 00804 CLRL ATTRIBUTES ; 
DD 0806 PUSHL SET_PTR : 
18 AE 9F 008D PUSHAB (CMD~DESC : 
08 AE 9F OO8DB PUSHAB ATTRIBUTES : 
54 pp 0080 PUSHL IF _PTR : 
146 AE 9F OOBE PUSHAB KEY_DESC : 
56 DD OO8E PUSHL  R6 : 
06 FB 008E5 CALLS #6, SMGSADD_KEY_DEF : 
2 09 OBE8 MOVL RO F 
E8 OOBEB BLBS STATUS, 40$ : 
52 DD OOBEE PUSHL  STATU ; 
o1 FB OOBFO CALLS #1, LIBSSIGNAL : 
3 7C OO8F3 40S: CLR f_PTR 5 0546. 
05 80 008F5 MOVW #5, ~KEY_DESC : 
C5 9E 008F9 MOVAB P.AEL, REY_DESC+4 ; | 
OF BO OO8FF MOVW #15, CMD_DESC 3 
CS 9E 00903 MOVAB P.AEM, CAD DESC +4 ; 
63 DO 00909 MOVL #3, ATTRIBOTES : 
53 pd 0090C PUSHL SET_PTR : 
AE 9F 0090E PUSHAB CMD~DESC : 
AE 9F 00911 PUSHAB ATTRIBUTES : 
54 DD 00914 PUSHL T F 
AE 9F 00916 PUSHAB KEY_DESC : 
56 DD 00919 PUSHL R6 F 
06 FB 0091B CALLS #6, SMGSADD_KEY_DEF : 
50 DO O091E MOVL RO. STATUS : 
52 £8 00921 BLBS STATUS, 41$ : 
52 DD 00924 PUSHL STATUS : 
01 FB 00926 CALLS #1, LIBSSIGNAL ; 
AE 9E 00929 41$:  MOVAB GOLD DESC, IF_PTR + 0547 
53 D4 0092D CLRL SET_PTR ; 
05 80 009¢F MOVW #5, ~KEY_DESC : 
C5 9E 00933 MOVAB P.AEN, REY_DESC+4 : 
OF BO 00939 MOVW © #i5, ¢ : 
CS 9E 0093D MOVAB P.AEO, CAD DESC+4 : 
93 DO 00943 MOVL #3, ATTRIBOTES ; 
53 DD 00946 PUSHL SET_PTR ; 
AE 9F 00948 PUSHAB CMD~DESC : 
AE 9F 00948 PUSHAB ATTRIBUTES 3 
54 DD 0094 PUSHL IF _PTR : 
AE OF 0095 PUSHAB KEY_DESC : 
56 DD 0095 PUSHL  R6 : 
06 FB 00955 CALLS #6, SMGSADD_KEY_DEF : 
50 DO 00958 OVL RO, STATU : 
3g £8 00998 BLBS §§ STATUS, 42% : 
52 DD 0095 PUSHL STAT : 
01 FB 0096 CALLS #1, LIBSSIGNAL : 
AE 9E 00963 42$:  MOVAB BLUE DESC, IF_PTR > 0548 
53 D4 0096 CLRL SE a : 
05 B80 00969 MOV #5, ~KEY_DESC ; 
c5 9 0960 MOVAB P.AEP, REY_DESC+4 : 
OF é 09 mMOVw #15, €mD DESC : 
CS 9€ 00977 MOVAB P.AEQ, CAD DESC+4 ; 
03 00 0097D MOVL #3, ATTRIBOTES ; 
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Mb 000 13-8 08- 1 3b 05:70: 8 DEBUG. SRC IDBGSCREEN.B3 31 9 a) 
53 DD 098 PUSHL_ SET_PTR ; 
18 AE 9F 009 PUSHAB CMD~DESC : 
08 AE 9F 0098 PUSHAB ATTRIBUTES : 
54 DD 0988 SHL  IF_PTR : 
14 AE 9F 0098A PUSHAB KEY_DESC : 
56 DD 0098D PUSHL R6 ; 
67 06 FB O098F CALLS #6, SMGSADD_KEY_DEF : 
52 0 D 0992 MOVL RO, STATU : 
05 2g EB 0099 BLBS STATUS, 43$ : 
52 DD 00998 PUSHL STATUS : 
68 01 FB 0099A CALLS #1, LIBSSIGNAL : | 
53 7C 09990 43$ CLRQ  SET_PTR : 0554) 
04 AE 04 BO 0099F MOVW #4, ~KEY_DESC : | 
08 AE 02A7 C5. 9E ~O09A3 MOVAB P.AER, REY_DESC+4 : | 
14 «AE 13 BO 009A9 MOVW #19, CMD DESC ; 
18 AE 02aB C5 9E O09AD MOVAB P.AES, CMD DESC+4 ; 
6E 0¢ DO 00983 MOVL #2, ATTRIBOTES : 
53 DD 00986 PUSHL SET_PTR : 
18 AE 9F 00988 PUSHAB CMD~DESC : 
08 AE 9F 009BB PUSHAB ATTRIBUTES ; 
54 DD O09BE PUSHL IF_PTR : 
14 AE 9F 009C0 PUSHAB KEY_DESC : 
56 DD 009C3 PUSHL R6 ; 
67 06 FB 0095 CALLS #6, SMGSADD_KEY_DEF : 
52 50 00 009¢8 MOVL RO, STATUS ; 
05 52 £8 009CB LBS STATUS, 44$ : 
52 DD OO9CE PUSHL STAT ; 
68 01 FB 00909 CALLS #1, LIBSSIGNAL ; 
53 7C 009D3 44$: CLR f_PTR : 0555) 
04 AE 0B B0 00905 MOVW #117 KEY_DESC : | 
08 AE 02BE ¢5 9E 00909 MOVAB P.AET, KEY_DeESC+4 ; 
14 AE 09 BO 009DF MOVW #9, CMD_DESC ; 
18 AE 02c9 C5 9E 009E3 MOVAB P.AEU, CMD _DESC+4 ; 
6E 03 DO 009E9 MOVL #3, ATTRIBOTES ; 
53 DD OO9EC SHL_ SET_PTR : 
18 AE 9F OO9EE PUSHAB CMD~DESC : 
08 AE 9F O09F1 PUSHAB ATTRIBUTES : 
54 DD 009F4 PUSHL IF_PTR ; 
146 AE 9F 009F6 PUSHAB KEY_DESC : 
56 DD 009F9 PUSHL : 
67 06 FB 009FB CALLS #6, SMGSADD_KEY_DEF : 
52 50 DO OO9FE MOVL RO, STATUS ; 
05 52 £8 OOA01 BLBS STATUS, 45$ ; 
3¢ DD OO0A04 PUSHL STATUS ; 
68 OT FB OOA06 CALLS #1, LIBSSIGNAL : 
53 7C OOAOD 45$:  CLRQ SET_PTR : 0556 
04 AE 0B 80 OOA0B MOVW #117 KEY_DESC : 
08 AE O2p2.¢ ; OOAOF MOVAB P.AEV, KEY_DESC+4 : 
14 AE 0B BO 00A15 MOVW = wil, CMD : 
18 AE O20  C¢ 4 BOAI9 MOVAB P.AEW, CAD DESC+4 : 
6E 03 DO OOAIF MOVL #3, ATTRIBOTES ; 
DD OO0A22 PUSHL  SET_PTR ; 
18 AE 9F OOA24 PUSHAB CMD~DESC : 
08 AE 9F OOA27 PUSHAB ATTRIBUTES ; 
54 DD OOACA USHL IF_PTR : 
14 AE OF OOAZC PUSHAB KEY_DESC : 
56 DD OOAF PUSHL 6 : 
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v04-000 pr19ke $SiFoic8 Oi SSececheen 035s 1 al 


00 14-Sep-19 DEBUG. ‘ 
H o3 826? ! ROUTINE DBGSSCR_CREATE_DISPLAY(NAMEPTR, KIND, WPTR, SIZE, CONTENT_PTR) = 
; 438 0567 1 ! FUNCTION 
; 439 0568 1! This routine creates a new screen display. It accepts the nene of 
; 440 0569 1! the new display and its initial attributes as input. If a display 
; 441 0570 1! by the same name already exists, an error is signalled, but other- 
> 44 0571 1! wise this routine creates a Screen Display Entry for the new display 
; 44 b27¢ 1! and fills the ie bs | name and the other attributes into the Display 
3 ide bat? : } Entry. The new display is then appended to the Screen Display List. 
> 446 0575 1! INPUTS 
> 447 0576 1! NAMEPTR = A pointer to the name of the etapley to be created. The 
; ree | p20f : } name is represented as a Counted ASCII string. 
; 450 0579 1! KIND - The kind of display to be created. This basically refers 
3 46351 0580 1! to how the contents are generated: it may be NORMAL, SOURCE, 
$ res 0581 1! DO, etc. 
; #45 babe 1! : 
; 454 0583 1! WPTR - A pointer to a Screen Window Entry. This Window Entry 
3 car begs ! defines the initial screen window for the new display. 
3 657 0586 1! SIZE - The maximum size of the display in text lines. If more 
> 458 0587 1! than SIZE Lines of text are later generated for this 
3; $39 0588 1! dis lay. the oldest Lines are discarded so that at most 
3 re ¢ 0205 : SIZE Lines are kept at any one time. 
; 462 0591 1! CONTENT_PTR = A pointer to the DEBUG command List which determines 
3; 463 b208 1! the contents of this display if this is an automatically 
> 464 0595 1! updated display. If this is not an gutenet*¢) iy upgated 
; 465 0594 1! display according to the KIND parameter, then CONTENT_PTR 
; 466 0595 1! is ignored and should be zero. 
; 467 0596 1! 
: 468 0597 1 ! OUTPUTS ; : ‘ 
> 469 0598 1! A pointer to the created Screen Display Entry is returned as this 
; 470 0599 1! routine'’s value. 
3; 471 0600 1! 
: 472 0601 1 
: 473 0602 2 BEGIN 
: 474 0603 2 
3; 475 0604 2 P : ; 
: 476 0605 2 NAMEPTR: REF VECTORC,BYTE], ! Pointer to ASCIC display name 
3 477 0606 2 WPTR: REF DBGSWINDOW_ENTRY; ' Pointer to Screen Window Entry 
: 478 0607 2 
; 479 0608 § LOCAL ? 
; 480 0609 BLINK: REF DBGSDISP_ENTRY, ! Pointer to last Screen Display Entry 
> 481 0610 2 : on the Screen Display List 
3; 482 0611 2 DISPTR: REF DBGSDISP_ENTRY, ! Pointer to new Screen Display Entry 
; 483 bei§ r4 DLEPTR: REF DBGSDLINE ENTRY, ! Pointer to Lobe} Display ine Entry 
> 484 0613 2 FLINK: REF DBG$DISP_ENTRY; ' Pointer to the list head for the 
; 485 0614 : Screen Display List 
3; 486 0615 
3; 487 0616 
; 488 0617 ; ; ; 
3; 489 0618 ' See if a display by the specified name already exists. If it does, we 
5 hs go!? signal an error and do not allow the new display to be created. 
3: 492 ea DISPTR = DBG$SCR_LOOKUP_DISPLAY( .NAMEPTR) ; 
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MO 008 14- ~8ep-1984 98: #9: 23 DEBUG. ER Teh BeSchEEN.049;1 ’ (3) 
; 493 06 § IF ,DISPTR NEQ 0 THEN SIGNAL(DBGS_DISPEXISTS, 1, .NAMEPTR); 3 
: 298 3 4 
: 496 0625 ' Allocate a monery block for the new Screen Display Entry and fill in all $ 
3 pet be § the relevant fields of that entry. ; 
; 499 0628 DISPTR = DBGSGET gired DISP -ENTSIZE + (.NAMEPTRCO] + ZUPVAL)/2%UPVAL); : 
; $00 0629 DISPTRCDBG$B_DISP_k = 3 
; 501 0630 DISPTRLDBG$W_DISP_ REE = ,WPTRLDBGSW WINDOW _RBEGJ; : 
; 206 0631 DISPTRCDBG$W_DISP_RLEN] = .WPTR DBG$W_WINDOW_RLEN : 3 
3; 30 06 ¢ DISPTRLDBG$W_DISP_CBEG) = .WPTRCDBGSW _WINDOW_CBEGJ; 3 
; 504 Be8 DISPTRLDBG$W_DISP_CLEN] = ,WPTRCDBGSW_WINDOW_ CLENI: : 
: 505 0634 DISPTRCDBGS$W-DISP-DROW) = 4; ; 
; 506 be82 DISPTRLDBG$W_DISP_DCOL) = 1; : 
3 307 0636 DISPTRCDBG$W_DISP_MAX > bee = MAX(1, .SIZE); é 
; 508 0637 2 DISPTRCDBGS$V_DISP_NEWDISP) = TRUE; : 
; 509 0638 2 DISPTRCDBG$V_DISP_INVSCR] = TRUE; : 
3; 310 0639 2 DISPTRCDBG$L_DISP =RARKL INES = 1; $ 
s 3} 0640 2 DISPTRCDBG$L_DISP-CMDLIST) = .CONTENT_PTR; : 
: 2\¢ bees § CHSMOVE(.NAMEPTRC(O) + 1, NAMEPTRCO), 5ISPTRCDBGSA_DISP_NAMEJ); 3 
; 514 0643 2 3 
ae is, 0644 2 ! Initialize the List head for the List of Display Line Entries. This s 
3 218 Reee § sets up an empty Line Entry List. 3 
3; 518 0647 2 DISPTRCDBGSL _DISP_START_LINE PIRI = SPTRCDB DISP_START_LINE_PTR); 3 
; 519 0648 2 DISPTRCDBGSL_DISP_END_LINE_PTR] = DISP TRCDBGS$ sors P_START_LINE_PTRI; 3 
; 520 0649 2 : 
s Del 0650 2 F 
s See 0651 2 ! Link the new Screen Display Entry into the Screen Display List. The new s 
3 a7 892 § entry is Linked in at the end of the list. Then return. : 
s S25 0654 2 FLINK = Metts DISPLAY_LIST; : 
i; 526 0655 2 BLINK = KCBBG$L_DISP_BLINK]; 3 
3 per 0656 2 DISPTR peed DISP. PLINK3 = .FLINK; i 
; 528 0657 2 DISPTRCDBG$L-DISP-BLINK) = .BLINK; : 
; 529 0658 2 LINK EDBGSL_DISF BLINK) = .DISPTR; 3 
; 530 0659 2 BLINKCDBGSL_DISP_FLINK] = .DISPTR; $ 
; 531 0660 2 RETURN .DISPTR; F 
3; 332 0661 2 3 
3 335 0662 1 END; 3 
007C 00000 DBGSSCR_CREATE =P ISPLAN : 
WORD ~ Save R2,R3,R4,R5,R6 : 0565 : 
04 AC 0D 00008 PUSHL NAM ; 0621 : 
0000v CF oF F 000 CALLS #1, DBGS$SCR_LOOKUP_DISPLAY : 3 
56 g Dd OOA MOVL RO, DISPTR : 3 
.Y 00D BEQL 3 0622 : 
04 AC ODD QOOOF PUSHL NAMEPTR 3 3 
4 DD Baie PUSHL @# 3 3 
00028372 F DD 14 PUSHL 4 722 : ; 
000000006 08 03 FB 8 OA CALLS LIBSSIGNAL : 3 
0 04 BC 9A 00021 18: MOVZBL SRAnEe PTR, RO ; 0628 : 
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H ; H 8663 ! ROUTINE DBGSSCR_CREATE_TEMP_WINDOW(RBEG, RLEN, CBEG, CLEN) = 

3 7 Oss 1 ! FUNCTION 

; 538 298 1: This routine creates a Temporary Screen Window Entry. A ‘‘temporary’’ 
; 539 0667 1! Screen Window Entry is a Screen Window Entry created in temporary 

; 540 0668 1! memory in which the window name is null. Such entries are used for 
; 541 a4 1! all unnamed windows used by DEBUG or specified by the user, that is 
; 206 0670 1! for all window which are not named and put on the Screen Window List. 
3; 0671 1! ALL jenporery Screen Window Entries disappear at the end of the pro- 
> 544 bors 1! cessing of the current command. 

> 545 0673 1! 

3 2¢$ 0674 1°! INPUTS 

; 54 0675 1! R = The beginning row location on the screen of this window. 

3 2¢8 bees ! } This value must be 1 or Larger. 

; 390 0678 1! RLEN - The row length (height) in Lines of this window. 

3 22) +284 : This value must be 1 or Larger. 

; 288 0681 1! CBEG = The beginning column location on the screen of this window. 
3 eee 93 : This value must be 1 or Larger. 

; 556 0684 1! CLEN - The column Lonaee (width) in print positions of this window. 
, Dor 0685 1! This value must be 1 or Larger. 

3 Soe 0686 1! 

; oF 0687 1 ! OUTPUTS 

; 560 0688 1! A pointer to the new Temporary Screen Window Entry is returned as the 
3 636) 0689 1! routine'’s value. 

; 562 0690 1! 

s 363 0691 (1 

3: 564 b68¢ 2 BEGIN 

; 565 0695 2 

; 566 0694 $ LOCAL : ; 

; 567 0695 WPTR: REF DBGSWINDOW_ENTRY; ! Pointer to temporary Window Entry 
; 568 0696 2 

; 569 0697 2 

; 570 0698 2 Ff 

3 27) y 344 § Check that the window parameters have valid values. 

3 278 0701 § IF (.RBEG LSS 1) OR (.RLEN LSS 1) OR 

: 574 070 (.CBEG LSS 1) OR (.CLEN LSS 1) 

3 S79 070 § HEN 

3; 3% 0704 $DBG_ERROR( "DBGSCREEN\CREATE_TEMP_WINDOW'); 

s S77 0705 

; #578 0706 , 3. 

3; of? 0707 ! Create a Temporary Screen Window Entry ond fill in its contents. Then 
; 280 $44 3 return the address of the new Screen Window Entry to the caller. 

; 286 0710 WPTR = DBGSGET_TEMPMEM(DBGSK_WINDOW_ENTSIZE + 1); 

; 58 0711 WPTRCDBG$W_WINDOW_RBEG) = .RBEG; 

: «584 Brie WPTRCDBG$W_WINDOW_RLEN] = .RLEN; 

; 585 071 WPTREDBGS$W-WINDOW-CBEG) = .CBEG; 

; 586 0714 WPTRIDBG$W-WINDOW-CLEN) = . : 

; 587 0715 RETURN .WPTR; 

; 4588 0716 

; 589 0717 #1 END; 
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DBGSCREEN 
vO%=000 
41 45 52 43 SC 4E 45 45 52 43 53 47 42 44 1¢ 
57 4F 44 4E 49 57 SF 50 4D 45 54 SF 45 54 
0000 
04 AC D5 
OF 15 
08 AC D5 
OA 15 
Oc AC D5 
05 15 
10 AC 05 
15 14 
00000000" EF 9F 
01 OD 
00028362 8F DD 
000000006 00 o3 . 
000000006 00 01 FB 
08 A0 04 Ac B60 
QA Ad 08 Ac B60 
Oc Ad OC B0 
OE AO 10 Ac +4 


; Routine Size: 73 bytes, 


Routine Base: DBGSCODE + OBOD 


H 14 
16-Sep-1984 02:30:21 AX-11 Bliss-32 
1023651 $80 93:79:25 DEBUG. SRCIDBGS 


ite P.AEZ: .ASCII <28>\DBGSCREEN\<92>\CREATE_TEMP_WINDOW\ 


00000 


COOOCCooOCooooooooooooO 
COOoOCoooooooooooooooo 
COOoOCoooocoooooooooooo 
FFA NN 2 SS MS OOCCCO 
CWMOLODEMOKL - "OP NVT 


-PSECT DBGSPLIT,NOWRT, SHR, 


-PSECT DBGSCODE,NOWRT, SHR, 


DBGSSCR_CREATE_TEMP_WINDOW: 
. WORD 


2$: 


ave nothing 


S 
TSTL RBEG 
BLEQ 1$ 
TSTL RLEN 
BLEQ 1$ 
TSTL CBEG 
BLEQ 1$ 
TSTL CLEN 
BGTR 2s 
PUSHAB P.AEZ 
PUSHL #1 


PUSHL #164706 
CALLS oe LIBSSIGNAL 


CALLS #1, DBGSGET_TEMPMEM 
RBEG, 8(WPTR) 


=z 
o 
< 
= 
. 

_ 
Nm 
nl 
= 
v 
—4¢ 
zD 
~" 


C 
MOVW CLEN, 14(WPTR) 


PIC,0 


PIC,0 


50-245 
CREEN.B32;1 


Be Se Se Se Se Ge Se Se Be Se Ge Se Ge Ge Se Se Se Se Be Se 


Page 34 
° (6) 


Bee Se Se Se Be Se Be Se Be Se Se Be Se Se Se FF FH Se Se Se Se Se Se Se Fe Se oe FH FH Se Se Fe Se Se HSE Se Se Se Se Se Se Se eee ee Se SHTHSe Se Se ee Be eeas 


ossinie 


610 


PAAAAA AAO 
at ot 
OWONOUSwr— 


620 


Be Be Oe Se Se Se Be Se Se Be Se Be Be Be Se Se Se Se Ge FH Se Ge Fe Se Ge Ge Ge Ge Ge Se Se Se Se Se Se Se FH Se Se BF Se Se FH Se Se SSH Ss Se Se Se Se Se HSH Ss ose 


: 


14 
1b-Sep-1986 2:50:21 YAK=I1 BLigs=32 v4. 0-743 


ROUTINE DBGSSCR_CREATE_WINDOW(NAMEPTR, RBEG, RLEN, CBEG, CLEN) = 


FUNCTION 
This routine creates a Screen Window Entry. It accepts a new window 
name and the window parameters for a new screen window as input 
creates a Screen Window Entry for such a window, and adds the Window 
eury to the Screen Window List. If a vt dag Be gd he gy for a window 
by the same name already exists on the Screen Window List, that previ- 


rome 


i 

i 

i 

i 

' 

i 

ous entry is deleted before the new entry is added to the List. 

! INPUTS 

; NAMEPTR = A pointer to the Counted ASCII name of the screen window 
to be created. 

: RBEG - The beginning row location on the screen of this window. 
This value must be 1 or Larger. 

: RLEN - The row length (height) in Lines of this window. 

} This value must be 1 or Larger. 

' 
i 
' 
i 
i] 
i 
i 
i 
i 


CBEG - The beginning column location on the screen of this window. 
This value must be 1 or Larger. 


CLEN - The column a y (width) in print positions of this window. 


This value must be 1 or Larger. 


OUTPUTS 


A pointer to the created Screen Window Entry is returned as the 
routine’s value. 


BEGIN 


pP 
NAMEPTR: REF VECTORC,BYTE); ! Pointer to ASCIC name for window 


Loc 
! Pointer to the last Window Entry in 


AL 
BLINK: REF DBGSWINDOW_ENTRY, ! 
; the Screen Window List 
FLINK: REF DBGSWINDOW_ENTRY, ! Pointer to the List head for the 
} Screen Window List. 
WPTR: REF DBGSWINDOW_ENTRY; ! Pointer to new Screen Window Entry 
Check that the window parameters have valid values. 


if (.RBEG LSS 1) OR (.RLEN LSS 1) OR 
({CBEG LSS 1) OR (.CLEN LSS 1) 


N 
$DBG_ERROR( "DBGSCREEN\CREATE_WINDOW'); 
: Create a new Screen Window Entry and fill in its contents. 


WPTR = DBGSGET a7) te erm WINDOW ma tS, + (.NAMEPTRCO] + ZUPVAL)/ZUPVAL) ; 
CHSMOVE(.NAMEPTR[O] + 1, NAMEPTRCOJ, WPTRCDBGSA_WINDOW_NAME )); 


Bete Se Oe Se Se Se Se Se Se Se Se Be Se Se FHS Se Se Se Se Be Se ee SH Se Se Oe Se Se ee HSE Se Se Se Se Se ee HSH Se Se Se St Oe ee Se ee 
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v04- 1-sep-1984 5:70:28 DEBUG.S Bacae DBGSCREEN. 53 31 . P vi 

: 648 0775 WPTRCDBGSW_WINDOW_RBEG] = .RBEG; 

; 649 gre WPTRLDBGS$W_WINDOW-RLEN] = .RLEN; 

; 650 077 WPTRLDBG$W_WINDOW_CBEG) = .CBEG; 

; 651 0778 WPTRCDBGSW_WINDOW_CLEN) = .CLEN; 

$ 626 0779 

3 62 0780 

3 O28 4 1 Now delete the current screen window by the same name, if one exists. 

; 656 $788 DBGSSCR_DELETE_WINDOW( .NAMEPTR) ; 

s 657 0784 

; 658 0785 

; 659 gree ' tha ay Link the new Window Entry into the Screen Window List. The new 

; 660 0787 i entry is added to the end of the Screen Window List. Then return a 

; o23 44 pointer to the new Window Entry. 

: beg 0790 LINK = pace WINDOW_LIST 

> 664 0791 BLINK = .FLINKCBBGSL WINDOW: PLM; 

; 665 O73¢ WPTRCDBGSL LNNBOR. FLINK) = TFLINK; 

; 666 079 WPTRCDBGSL WINDOW-BLINK] = .BLINK: 

: 667 0794 2 PLINKEDBGSC WINDOO_BLINK] = .WPTR; 

; 668 0795 2 BLINKCDBGSL— WINDOW FLINK] = .WPTR; 

; 669 0796 2 RETURN .WPTR; 

; 670 0797 2 

3; 671 0798 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


41 45 52 43 SC 4E $3 3 5 a P.AFA: .ASCII <23>\DBGSCREEN\<92>\CREATE_WINDOW\ : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
007C 00000 DBGSSCR =Che Are vt WINDOW: 


Save R2,R3,R4,R5,R6 : 0718) 
08 AC 05 00002 TSTL RBEG ; 0765 
OF 15 00005 BLEQ 1$ : 
0c AC D5 00007 TSTL RLEN : 
OA 15 OOO0A BLEQ 1$ : 
10 AC 05 0000C TSTL CBEG ; 0766 
05 15 Bonut BLEQ 1$ ; 
14 AC 05 00011 TSTL CLEN : 
15 14 00014 BGTR 2s ; 
00000000" fr 4 Bante 1$: ee ade ; 0768 
00028362 8F ODD S00rE PUSHL #164706 : 
000000006 00 03 FB 00024 CALLS #3, LIBSSIGNAL ; 
50 06 BC 9A 00028 2$: MOVZBL @NAMEPTR, RO ; 0773 
50 04 CO 0002F ADDL #4, RO : 
50 04 ge bo8 ¢ DIVL #4, RO : 
04 AO 9F 000 PUSHAB 4(RO) : 
000000006 90 H fe 4 oe #1, pOGsGeT MEMORY : 
50 04 BC 9A 00042 MOVZBL SNAMEPTR, RO ; 0774 


-— —_——_—_ 
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3; Routine Size: 


10 = A6 


131 bytes, 


04 BC 
08 A6 
OA A6 
OC A6 
OE A6 
0000v ¢ 


Routine Base: 


000000 


K 14 
16-Sep-19 
14-Sep-19 

5 0004 
aS 36 gone 
08 ac 60 oot 
0C AC B80 0005 
10 AC B60 00058 
14 AC 80 00050 
046 AC OD Oobe 
01 FB 0006 
00° EF oF 4 
04 AO 00 00071 
50 7D 00075 
26 4 B0078 
6 00 0007C 
56 D0 0007F 
04 00082 


DBGSCODE + 0856 


AX-11 Bliss s-32 
DEBUG.SRC 


16(WPTR) 
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AX-11 
DEBUG. 


14 
16-Sep-1984 95:70:28 CREEN 03951 


14-Sep-1984 
ROUTINE DBGSSCR_DELETE_DISPLAY(NAMEPTR) = 


FUNCTION 
This routine deletes a specified screen display. 


Bliss- Pa 8 
SRC IDB . (BS 


t It accepts the name 
of the display to be deleted as input, looks up the corresponding 
Screen Display Entry, and removes that entry from the Screen Display 
List. It then releases the Display Entry and all associated memory 
blocks back to the DEBUG memory pool. 


i 
i 
i 
i 
i 
i 
i 
' INPUTS e 

‘ NAMEPTR = A pointer to the name of the he ts to be deleted. The 
name is represented as a Counted ASCI 

! 

i 

1 

i 

i 

i 

i 

i 


I string. 
OUTPUTS 
One of the following two status codes is returned as the routine value: 
STSSK_SUCCESS = The specified display was deleted. 
STS$K_SEVERE - No display by the specified name exists and 
hence no display was deleted. 
BEGIN 
LOCA 


L 

BLINK: REF DBGSDISP_ENTRY, ! Pointer to the previous earlier Entry 
: _ on the Screen Display List 

DISPTR: REF DBGSDISP_ENTRY, ! Pointer to Display Entry to delete 

DLEPTR: REF DBGSDLINE ENTRY, ' Pointer to current Display Line Entry 

FLINK: REF DBGSDISP_ENTRY, ! Pointer to the next Display Entry on 
!  — —ithe Screen Display List 

NEXTDLE: REF DBGSDLINE_ENTRY; ! Pointer to next Display Line Entry 


! Look up the Screen Display Entry to be deleted. 
} desired name exists, return unsuccessfully. 


DISPTR = DBG$SCR_LOOKUP_DISPLAY( .NAMEPTR); 
IF .DISPTR EQL O THEN RETURN STSS$K_SEVERE; 


If no display by the 


We found the desired display. If this display is the selected current 


' 

! input, output, scrolling, or source display, remove that selection by 
: zeroing the associated pointer to the Display Entry. 

IF .DISPTR EQL .DBGSSCR_CURDISP_INPUT THEN DBGSSCR_CURDISP_INPUT = 0; 
IF .DISPTR EQL .DBGSSCR_CURDISP_OUTPUT THEN DBGSSCR_CURDISP_OUTPUT = 0; 
IF .DISPTR EQL .DBGSSCR_CURDISP_SCROLL THEN DBGSSCR_CURDISP_SCROLL = 0; 
IF .DISPTR EQL .DBGSSCR_CURDISP SOURCE THEN DBGSSCR_CURDISP_SOURCE = 0; 
IF .DISPTR EQL .DBGSGL_SCREEN_ERROR THEN DBGSGL_SCREEN_ERROR = 0; 
IF .DISPTR EQL .DBGSGL_SCREEN_HISTORY THEN DBGSGL_SCREEN_HISTORY = 0; 
IF .DISPTR EQL .DBGSGL_SCREEN_INPUT THEN DBGSGL_SCREEN_INPUT = 0; 
If .DISPTR EQL .DBGSGL_SCREEN_OUTPUT THEN DBGSGL_SCREEN_OUTPUT = Q; 
If .DISPTR EQL .DBGSGL_SCREEN_SOURCE THEN DBGSGL_SCREEN_SOURCE = 0; 
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14-Sep-1984 DEBUG.SRC 
! Now unlink the Display Entry from the Screen Display List. 


LINK = = .DISPTREDBGSL_DISP_FLINK); 
BLIN eits SPIR Sate Ney = “BLINK): 


BLINK; — 
BLINK DBGSL motte PLINK FLINK; 


DBGSCREEN.B32;1 


: aa eee the DEBUG command List entry for this display (if any) back to 
the DEBUG memory pool. 


if .DISPTRCDBGSL_DISP_CMDLIST] NEQ 0 
DBGSREL_MEMORY(.DISPTRCDBGSL_DISP_CMDLISTI); 


! Release all the Screen Display Line Entries (all the actual text Lines) 
that belong to this screen display. 


DLEPIR = .DISPTRCDBGSL_DISP_START_LINE_PTRI; 
WHILE 2OLEPTR NEQ DISPTRCDBGSL_DISP_START_LINE_PTR] DO 


NEXTDLE = Nearer: ~-DLINE _FLINKI; 
DBGSREL_M gee tS - LEPT 
le = NEXT 


! Release all error Display Line Entries (if any) attached to this Screen 
' : Display Entry. 


DLEPTR DISPTREDBGSL_DISP_ERROR_PTRI; 
F cata DLINE_FLINK]; 


yt pt: DLE 
= .NEXTDL 


Release all old-text Display Line Entries attached to this Display Entry. 


DLEPTR DISPTREDBGSL _DISP_OLDTXT_PTR; 
WHILE . 00D 


RATS ity ~DLINE —FLINKI; 


_MEMORY (DLE 
= oNEX TDLE; 


! Finally release the Screen Display Entry itself to the memory pool. Then 
return successfully to the caller. 


bBGSREL MEMORY(.DISPTR); 
RETURN STS$K “SUCCESS; 
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; 787 0913 «1 END; 
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OOFC 00000 DBGSSCR opeuete DISPLAY: 
Save R2,R3,R4, a R6,R7 


57 00000000G 00 9E 00002 AOVAD DBGSREL_MEMORY R 
56 00000000° EF 9E 00009 MOVAB poesacn “CURDISP INPUT, R6 
55 00000000" EF 9E 90019 MOVAB L_SCREEN_ERROR, RS 
046 AC DD 9901 PUSHL art 
CF 01 FB OOO1A CALLS #1, DBGSSCR_ LOOKUP_DISPLAY 
52 50 DO O001F MOVL RO. DISPT 
04 12 00022 BNEQ 1 
50 04 DO 00024 MOVL #4, RO 
04 00027 RET 
6h 52 D1 00088 1$: CMPL DISPTR, DBGSSCR_CURDISP_INPUT 
02 12 00028 BNEQ es 
66 04 0002D CLRL § DBGS$SCR_CURDISP_INPUT 
AG 32 D1 900¢F 2s: CMPL DISPTR, DBGSSCR_CURDISP_OUTPUT 
03 12 00033 BNEQ 3$ 
04 Ab D4 00035 CLRL § DBGS$SCR_CURDISP_OUTPUT 
Ab 52 D1 00038 3$ CMPL = DISPTR, DBGSSCR-CURDISP_SCROLL 
03 12 0003C BNEQ res 
08 Ab D4 O003E CLRL  DBGS$SCR_CURDISP_SCROLL 
A6 52 D1 00041 4$ CMPL  DISPTR, DBGSSCR—~CURDISP_SOURCE 
03 12 00045 BNEQ 5$ 
OC Ab D4 00047 CLRL § DBGS$SCR_CURDISP_SOURCE 
65 52 D1 OO004A 5$ CMPL DISPTR, DBGSGL_SCREEN_ERROR 
02 12 00040 BNEQ 6$ 
65 D4 0006 CLRL § DBGSGL_SCREEN_ERROR 
AS 52 01 00051 6$ CMPL DISPTR, DBGSGC_SCREEN_HISTORY 
03 12 00055 BNEQ 7$ 
04 Ad D4 00057 CLRL DBGSGL_SCREEN_HISTORY 
AS 52 D1 0005A 7$ CMPL DISPTR> DBGSGC_SCREEN_INPUT 
03 12 OO0SE BNEQ 8$ 
08 a5 D4 00060 CLRL § DBGSGL_SCREEN_INPU 
AS 32 D1 00063 8S CMPL  DISPTR> DBGSGC_ SCREEN _OUTPUT 
03 12 00067 BNEQ 9 
18 AS D4 00069 CLRL § DBGSGL_SCREEN_OUTPUT 
AS 32 D1 0006C 9$ CMPL DISPTR> DBGSGC_SCREEN_SOURCE 
03 12 00070 BNEQ 10$ 
1¢ a3 p4 007@ CLRL DBGSGL SCREEN_ SOURCE 
50 62 7D 00075 10$: MOVO (DISPTR), FLINK 
AO 51 pO 00078 MOVL = BLINK, GFLINK) 
61 50 pO 0007C MOVL ELINK (BLINK) 
48 A2 D3 0007F TSTL 72(DISPTR) 
06 13 00082 BEQL 11$ 
48 A2 DD 0084 PUSHL 72(DISPTR 
67 01 FB 087 CALLS #1 DBGSR eL _MEMORY 
53 30 A2 DO 0008A 118 MOVL 32(piseTR). DLEPTR 
50 0 Ad 9E OOOBE 128 MOVAB (DISPT 
50 53 D1 0009 CMPL PLEPTR. 
0p 13 0009 BEQL 13$ 
54 63 D0 00097 MOVL (DLEPTR), NEXTDLE 
53 DD O009A PUSHL  DLEPTR 
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Routine Base: DBGSCODE + OBD9 


211 bytes, 


; Routine Size: 


——_—— 


| DBGSCREEN 
v04= 


00 

; 789 0914 
; 790 0915 
; 791 B28 
; 79 091 

; 79 0918 
: 796 0919 
; 795 0920 
; 796 0921 
; 797 09 ¢ 
: 798 433 

; 799 0924 
; 800 bas? 
; 801 0926 
; 80 0927 
; 80 0928 
; 804 3h 9 
; 805 0930 
; 806 0931 
; 807 0932 
; 808 0933 
; 809 0934 
; 810 0935 
3; 811 0936 
; 812 0937 
3; «813 0938 
; 814 0939 
3 «6815 0940 
; 816 0941 
3; 817 O366 
; 818 094 

; «819 0944 
; 820 0945 
: 821 0946 
; 822 0947 
; 823 0948 
; 824 0949 
; 825 0950 
; 826 B78) 
; 827 09 ; 
; 828 095 

; 829 0954 
3; 830 0955 
3; «831 0956 
3 He BR ee 
3; «83 958 
3; 834 0959 
; 835 0960 
: 836 0961 
3; 837 096 

; 838 096 

3; 4839 0964 
; 840 0965 
3; 6841 0966 
3 B66 0967 
3 «684 0968 


15 
16-Sep-1984 96 79 21 AX-11 Bliss-32 vee 04s 
14-Sep-1984 12:17:43 DEBUG. SRC JDBGSCREEN.B32;1 
ROUTINE DBGSSCR_DELETE_WINDOW(NAMEPTR) = 
FUNCTION 
This routine deletes a specified screen window definition. It accepts 


the name of the window to be deleted as input, looks up the correspond- 
ing Screen Window Entry, and removes that entry from the Screen Window 
List. It then releases the Window Entry back to the DEBUG memory pool. 


i 
i 
i 
i 
i 
: 
' INPUTS : 

: NAMEPTR = A pointer to the name of the window to be deleted. The name 
} is represented as a Counted ASCII string. 

! OUTPUTS - 

One of the following two status codes is returned as the routine value: 
! 

' 

i 

i 


STSSK_SUCCESS = The specified window definition was deleted. 


STSSK_SEVERE - No window by the specified name exists and 
hence no window was deleted. 
BEGIN 
LOCAL 
BLINK: REF DBGSWINDOW_ENTRY, ! Pointer to the previous Window Entry 
! on the Screen Window List 
FLINK: REF DBGSWINDOW_ENTRY, ! Pointer to the next Window Entry on 
! si the Screen Window List 
WPTR: REF DBGSWINDOW_ENTRY; ! Pointer to the Window Entry to delete 


' Look up the Screen Window Entry to be deleted. If no window by the 


desired name exists, return unsuccessfully. 


WPTR = DBGS$SCR_LOOKUP_WINDOW( .NAMEPTR) ; 
IF .WPTR ECL O-THEN RETURN STSS$K_SEVERE; 


We found the desired window definition. Unlink that Window Entry from 
the Screen Window List. 


K = ,WPTRED * 
NKCDBG$L_WINDOW_BLINK] = 
NKCDBGSL-WINDOW-FLINK) = 


' Release the Screen Window Entry back to the memory pool. Then return 


successfully to the caller. 


DBGSREL_MEMORY(.WPTR); 
RETURN STS$K_SUCCESS; 


END; 
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0004 00000 DBGS$SCR_DELETE_WINDOw: 
eWORD Save R 


40 
3 0914 
04 AC DD 4 t4 L NAMEPTR ; 0949 
Q0000vV CF 01 Fe 0000 CALLS #1, DBGS$SCR_LOOKUP_WINDOW g 
50 D5 O000A TSTL WPTR : 0950 
04 12 0000¢ BNEQ ~='1$ ; 
50 04 DO 0000E MOVL #4, RO : 
04 00011 RET : 
51 $9 D 90012 1$ MOVQ  (WPTR), FLINK : 0956 
04 Al 2 DO 0001 MOVL BLINK, 4(FLINK) + 0958 | 
62 51 D0 00019 MOVL FLINK, (BLINK) + 0959. 
50 DD 0001C PUSHL WPTR : 0965. 
000000006 00 01 FB OOOTE CALLS #1, DBGSREL_MEMORY : | 
50 01 pO 00025 MOVL #1. RO : 0966. 
04 00028 RET + 0968 | 


; Routine Size: 41 bytes, Routine Base: DBGSCODE + OCAC 


_— 
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vO2 +000 12-8081 382 1 79:83 DEBUG. GRCISBGSCKEEW.B355 1 " (10) 
; 845 0969 1 ROUTINE DBGSSCR_DISPLAY_COMMAND(NAMEPTR, KIND, WPTR, SIZE 
; 846 0970 1 CONTENT_PTR, LIST_LOCATION) = 
> 847 0971 1! 
; 848 Bang 1 ! FUNCTION 
; 849 0975 1! This routine performs the semantic actions of the DISPLAY command. It 
; 850 0974 1! accepts the name of an existing display and its desired attributes as 
; 851 0975 1! input. It then modifies all attributes of the display as specified by 
; B26 0976 1! the input parameters. This may include changing the display's window, 
3 85 0977 1! its kind, its size, and its location on the display List (which affects 
> 854 0978 1! it ‘‘depth’’ on the screen relative to other displays). 
gs 859 0979 1! 
; 528 bees 1 ! INPUTS . 
; 857 981 1! NAMEPTR = A pointer to the name of the orap) oF to be displayed. The 
3 s28 4 ! name is represented as a Counted ASCII string. 
; 860 0984 1! KIND - The new kind of the dt eqlay (if the kind is being changes? 
; 861 0985 1! or DBG$K_DISP_NOKIND (if the kind is not being changed). 
3; & 0986 1! This bastcal ly refers to how the contents are generated: 
3 Bei 34-44 ! it may be NORMAL, SOURCE, DO, etc. 
; 865 0989 1! WPTR - A pointer to a Screen Window Entry if the display's window 
; 866 0990 1! parameters are being changed. This Window Entry defines 
; 867 0991 +1! the new screen window for the display. If the window is 
3 45 344 ' } not being changed, WPTR is zero. 
; 870 0994 1! SIZE - The new maximum size of the display in text lines (if the 
; 871 0995 1! display size is being changed) or zero (if the size is not 
3 Sie 0996 1! being changed). 
s Ors 0997 1! : 
; 874 0998 1! CONTENT_PTR = A pointer to the DEBUG command List which determines 
> 875 0999 1! the contents of this display if this is an automatically 
; 876 1000 1! updated Stepl ay. If this is not an automatically updated 
; 877 1001 1! display according to the KIND pecgreces or if the KIND 
; 878 1002 1! parameter has the value DBG$K_DISP_NOKIND (no change to 
; 879 1003 1! the display kind), then CONTENT_PTR is ignored and should 
; 880 1004 1! be zero. 
; 881 1005 1! aes 
; 882 1006 1! LIST_LCCATION = A parameter which specifies the dis bay's location 
; 883 1007 1! on the Screen Display List. If LIST_LOCATION is zero, the 
; 884 1008 1! List location is not changed. If it is positive, the dis- 
; 885 1009 1! play is put at the front of the List (so it occludes other 
; 886 1010 1! displays on the screen), and if it is negative, the display 
; 887 1011 1! is put at the back of the List (so that it is occluded by 
; 888 1ot8 7! by any overlapning displays on the screen). 
; 889 1013 1! 
; 890 1014 1 ! OUTPUTS ; . 
; «891 1016 1! A pointer to the Screen Display Entry of the specified display is 
; 89 1016 1! returned as this routine’s value. 
; 89 1017 1! 
3; 894 1018 1 
; 895 1019 BEGIN 
; 896 1020 
3 897 4 P . ; 
3 343 3 § WPTR: REF DBGSWINDOW_ENTRY; ! Pointer to Screen Window Entry 
; 900 1954 LOCAL , : ? 
; 901 1025 BLINK: REF DBGSDISP_ENTRY, ! Pointer to previous Screen Display 
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; 90 10 § : Entry on the Screen Display List 
; 90 10 DISPTR: REF DBGSDISP_ENTRY, ! Pointer to new Screen Display Entry 

> 904 1028 DLEPTR: REF DBGSD\ INE ENTRY ! Pointer to Display Line peg fi remove 
: 905 1029 DL_BLINK: REF DBGSDLINE_ENTRY, | Pointer to previous Display Line Entry 
; 906 1030 DL.FLINK: REF DBGSDLINE_ENTRY, ! Pointer to next Display Line Entry 

; 907 1031 FLINK: REF DBGSDISP_ENTRY, ! Pointer to next Screen Display Entry 

; 908 1838 ! on the Screen Or splay List 

; 909 103 NEW_RLEN, ! New RLEN value when changing window 

; 910 1034 OLD_RLEN; ! Old RLEN value when changing window 

>; 911 1035 

3 aig 1036 

3; 9 oat 

3; 914 1036 ! Look up the desired ener by its name. If no such display exists, 

; oi2 1973 signal an error (no such screen display). 

; 917 1041 DISPTR = DBGSSCR_LOOKUP_DISPLAY( .NAMEPTR); 

; At eg IF .DISPTR EQL O THEN STGNAL(DBG$_NOSUCHDISP, 1, .NAMEPTR); 

; 920 1044 

; 921 1045 2 ! If the display kind is — changed, set the new values of the kind 

3 Vee 1046 2 ! and command-Llist fields in the Screen Display Entry. Note that we 

3 92s 1047 2 ! first clear the contents if we are switching from a source “— to 

> 924 1048 2 ! a non-source et or vice versa (normal and source Display Line 

; 925 1049 2 ! Entries cannot be mixed in the same display). We also release the old 

3 9s6 120 § } command-List block if one exists. 

; 928 1026 2 IF .KIND NEQ DBG$K_DISP_NOKIND 

; 929 105 4 THEN 

; 930 1054 BEGIN 

3 «95 1055 3 

; 932 1056 3 ; 

; 933 1057 3 ! If we are changing from a non-source display to a source display, make 
3 934 1058 3 ! sure that this display is no longer the current input or output dis- 

s 935 1059 3 ' play. Also clear its contents so that no normal Display Line Entries 
3 a¢8 1909 ; } are left in a source display. 

; 938 1006 3 IF (.DISPTRCDBG$B_DISP_KIND] NEQ DBGS$K_DISP_SOURCE) AND 

; 939 1063 4 (.KIND EQL DBGSK_DISP_SOURCE) 

: 940 1064 3 THEN 

3: 941 1065 4 BEGIN 

3 942 1066 4 IF .DISPTR EQL .DBGSSCR_CURDISP_OUTPUT THEN DBGSSCR_CURDISP_OUTPUT = 0; 
: 943 1067 4 IF .DISPTR EQL .DBGSSCR-CURDISP_INPUT THEN DBGS$SCR_CURDISP_INPUT = 0; 
> 944 1068 4 IF .DISPTR EQL .DBGSGL_SCREEN_OOTPUT THEN DBGS$GL_SCREEN_OUTPUT = 0; 
3 945 4 4 IF .DISPTR EQL .DBG$GL_SCREEN INPUT THEN DBGSGL_SCREEN_INPUT = 0; 

: 946 1070 4 DBGSSCR_EMPTY_DISPLAY({DISPTRI; 

3 947 1071 END; 

3; 948 1976 

; 949 107 ; 

; 950 1074 ! If we are changing from a source display to a non-source display, make 
3; «951 1075 ! sure that this display is no longer the current source display. Clear 
3 928 1076 ! its contents so that no source D splay Line Entries are left in a nor- 
3; 9 1077 !' mal output display. Also zero out all source-display specific fields 
; oee 1O78 } in the Screen Display Entry. 

: 956 1080 IF (.DISPTRCDBG$B_DISP_KIND] EQL DBGS$K_DISP_SOURCE) AND 

3 957 1081 4 (.KIND NEQ DBGSK_DISP_SOURCE) 

; 958 1082 3 THEN 
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; 959 1083 4 BEGIN 
; 960 43 4 IF .DISPTR EQL .DBGSSCR_CURDISP_SOURCE THEN DBGSSCR_CURDISP_SOURCE = 0; 
; 961 1085 4 IF ,DISPTR EQL .DBGSGL_SCREEN SOURCE THEN DBGSGL_SCREEN_SOURCE = 0; 
; 96 1086 4 DBGSSCR_EMPTY_DISPLAY(-DISPTRY; 
; 1087 4 DISPTRCDBGSL_BISP_MODPTR] = 0; 
: 964 1088 4 DISPTRLDBGSL_DISP_CENTERJ = 0; 
; 965 1089 4 DISPTRLDBGSL_DISP_MARKLINE] = 0; 
; 966 1090 4 DISPTRLDBGSL_DISP_MINLINE) = 0; 
: 967 1091 4 DISPTRLDBGSL_DISP_MAXLINE) = 0; 
; 968 1936 END; 
; 969 109 
; 970 1094 
; 971 1095 : Remove the old DEBUG command List, if present. The eo: the Display 
3 44 1999 i : Entry" s kind field and set the new DEBUG command List address. 
3 ee 944 ; iF -DISPTRCDBGSL_DISP_CMDLIST] NEQ 0 
; 38 110y ; DBGSREL_MEMORY(. wrist 
; 978 1108 ; ISPTRCDBG$B_DISP_KIND] = .KIND; 
; 979 110 ISPTRCDBGSL_ “DISP_ CMDLISTI = - CONTENT_PTR; 
; 980 11046 2 ENDS 
; #981 1105 
; 98 1106 
; 98 1107 ! If the display window parameters are being changed, pick up the new 
3 one 1138 § window parameter values from the specified Screen Window Entry. 
; 986 1110 2 IF .WPTR NEQ 0 
; 987 1111 THE 
; 988 Wi1¢ BEGIN 
; 989 111 
; 990 1114 3 
5 +441 HE ; Set the new values of the window parameters for this display. 
; 993 1117 3 OLD -RLEN = .DISPTRCDBG$W_DISP_RLEN); 
: 994 1118 ; NEWRLEN = .WPT A et MINOON. RLENJ; 
; 995 1119 DISPTRCDBG$W_DISP_RBEG] = .WPTR OBG$w -WINDOW_RBEG); 
; 996 1120 ; DISPTRCDBG$W_DISP_CBEG) = PTR DBG$W_WINDOW_CBEG); 
3; 997 1121 DISPTRLDBG$SW_DISP_RLEN] = .WPTRLDBGSW_WINDOW_RLENJ; 
; 998 1122 3 DISPTRCDBG$W_DISP_CLEN] = .WPTRCDBG$W_WINDOW_CLEN); 
; .999 1123 3 
; 1000 1124 ; 
3 1001 1125 ! Adjust the DROW value (window row location in the display text) and 
: 100 1196 ; i the window start pointer to fit the new vertical size of the display. 
3; 100 11 i Esgont tet ly we Hg | to keep the window centered on the same text as 
3 1004 1128 i before. We also invalidate the scrolling count since it is no Longer 
3 Hi 1180 usable by the OUTPUT_SCREEN routine. 
3; 1007 1131 DISPTR DBG$V_ Bist. tbe R} = TRUE; 
: 1008 1138 DISPTR let 6253 MAX (1 A N¢ 
> 1009 113 Bos. DISP “CINE ENT 1] = .NEW_RLEN + 1, 
3 1010 1134 Bl Spt bBesw ups DR + (.OLD_RCEN = .NEW_RLEN)/2)); 
3 1011 1135 ; IF .DISPTR DBGsy DISP-LINECNT) GTR 0 
; 9 1136 THEN 
3; 101 1137 4 BEGIN 
3 1014 1138 4 DLEPTR = .DISPTRCEDBGSL_DISP_START_LINE PIRI: 
3 1015 1139 4 INCR J FROM 1 TO .DISPTRCDBG$W_DI ISP. DROW) - 
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DLEPTR = .DLEPTRCDBGSL_DLINE_FLINK); 


ISPTRCDBGSL_DISP_WINDOW_PTR) = .DLEPTR; 
END; 


If the display size (the maximum number of Lines of text the display may 
contain) is being changed, set the new size in the Screen Display Entry 
and delete any existing Lines which cause the Line count to exceed the 
new maximum. Note that we always delete the oldest lines first. Note 
that the scrolling count is also invalidated. 


a te 


F .SIZE GTR 0 

HEN 
EGIN 
DISPTRCDBG$W_DISP_MAX_LINECNT] = .SIZE; 
DISPTRCDBG$SV_DISP_INVSCR] = TRUE; 


: Delete enough of the oldest Lines to bring the display size down to 
; the new maximum size. 


INCR. 1 FROM SIZE + 1 TO .DISPTRCDBGS$W_DISP_LINECNT] DO 
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0. 

0. 

0 ! Delete the oldest Line still in the display and decrement the 
be Line count. 

04 DLEPTR = .DISPTRCDBGSL_DISP_START_LINE_PTRI; 

04 DL_FLINK = .DLEPTRCDBGSL_DLINE_FLINK); 

04 DL_BLINK = .DLEPTRCDBGSL_DLINE_BLINK); 

05 DL_FLINKCDBGSL_DLINE_BLIAK] = DL_BLINK; 

05 DL_BLINKCDBG$L_DLINE_FLINK] = .DL_FLINK; 

05 DBGSREL_MEMORYT.DLEPTR) ; 

B3 DISPTRCBBG$W_DISP_LINECNT]) = .DISPTRCDBG$W_DISP_LINECNT] = 1; 
05 

05 ! Decrement DROW so that the current window position is maintained. 
057 ' However, if Lines in the current window are being deleted, we 
gee adjust DROW and WINDOW_PTR accordingly. 

060 DISPTRCDBG$W_DISP_DROW] = .DISPTRCDBG$W_DISP_DROW] - 1; 

061 IF .DISPTRCDBGSW_BISP_DROW) LEQ 0 

606 THEN 

06 BEGIN 

064 DISPTRCDBG$W_DISP_DROW] = 1; 

eee oF ad DBG$L~DISPWINDOW_PTRI = .DISPTRCODBGS$L_DISP_START_LINE_PTRI; 
067 

068 END; 

069 

070 END; 

071 

072 
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v04- 14-Sep-1984 12:17:43 DEBUG. SRC JDBGSCREEN.B32;1 (10) 
! If the List location of this Display Entry is to be changed, unlink it 
from the Screen Display List and then relink it into the proper place 
! (either at the beginning or at the end of the list). 
IF .LIST_LOCATION NEQ 0 


' 
i 
i 
i 
I 
T 
BEGIN 


oO 
~“ 


= 
HEN 
! Unlink the specified Screen Display Entry from the Display List. 


NK = .DISPTR +42 tee 4 Et ep 
K = .DISPTR mer tn serine 


' 

FLI 
BLI 
FLI 
BLI 


Wy tt tet 


Doo ER OOOO w 


joleleleleloleleleleleleleleleleleleloleleolo) 


N 
NKCDBGSL_DISP_BLI BLINK; 
: NKCDBGSL_DISP_FLINK] = .FLINK; 
8 
ba Determine the proper List location for reinserting the Display Entry. 
% BLINK = DBGSSCR_DISPLAY_LIST; 
9 IF .LIST_LOCATION GTR O THEN BLINK = .BLINKCDBG$L_DISP_BLINKI; 
be FLINK = .BLINKCDBG$L_DISP_FLINKJ; 
yae4 } Then reinsert the Display Entry into the Screen Display List. 
099 DISPTRIDBGSL_DISP_FLINK] = .FLINK; 
DISPTRCDBG$L_DISP_BLINK] = .BLINK; 
FLINKCDBGS$L_BISP_BLINK] = .DISPTR; 
BLINKCDBG$L_DISP_FLINK] = .DISPTR; 


! If the display kind changed so it now is automatically updated, we need 
! to regenerate its contents. This is done by calling the screen display 
! generation routine. 


t 

i] 

' 

' 

IF (.KIND EQL DBG$K_DISP_DO) OR 
(ZKIND EQL DBGSK~DISP~SOURCE) OR 


— EQL DBGSK_DISP_REGISTER) 
DBG$SCR_GENERATE _SCREEN(.DISPTR); 


} The DISPLAY command is fully processed. Now return. 
RETURN .DISPTR; 
END; 
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OFFC 00000 DBGSSCR_DISPLAY_COMMAND : 
WORD “Save R2,R3.R4,R5 


<9 


Oe 
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5B 000000006 00 9€E 00002 HOVAB DBGSREL/ MEMORY, R11 ; 


R6,R7,R8,RI,R10,R11 ; 0969 
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DBGSCREEN 16-Sep-1984 02:30:2 AX-11 Bliss<-32 V4.0-74 Page 49 
v04=0 1e-8ep-19 4 1 79:34 DEBUG. SRC JDBGSCREEN.B3 31 . a6 
5A 00000000" EF 9E 00009 MOVAB DBGS$GL_SCREEN_OUTPUT, R10 : 
59 datdaitdee EF 9E 9019 MOVAB DBGSSCR_CURDISP_OUTPUT, R9 : 
04 AC DD 0001 PUSHL NAME + 1041 
0000v CF gi FB OOO1A CALLS #1, DBGSSCR_LOOKUP_DISPLAY : 
53 0 00 O01F MOVL RO, DISPTR : 
12 12 00022 BNEQ 3 1042 
04 AC DD 00024 PUSHL NAMEPTR : 
01 DD 00027 PUSHL : 
00028462 8F DD 00029 PUSHL #166498 : 
000000006 00 03 FB 000eF CALLS #3, LIBSSIGNAL : 
56 08 A p09 00036 1$: MOVL KIND, R6 : 1052 
73 «1 0005A BEQL 118 ; 
03 08 A3 91 0003¢ CMPB sa (DISPTR), #3 + 1062 
2C 13 00040 BEQL © 6$ ; 
03 56 D1 0004¢ CMPL = R6, #3 + 1063 
27 12 0004 BNEQ 6$ : 
69 53 D1 00047 CMPL DISPTR, DBG$SCR_CURDISP_OUTPUT + 1066 
02 12 0004A BNEG 2$ ; 
69 D4 0004C¢ CLRL § DBGSSCR_CURDISP_OUTPUT : 
FC OQ 53 D1 OO04E 28: CMPL = DISPTR, DBG$SCR~CURDISP_INPUT + 1067 
03 12 00052 BNEQ 3$ ; 
FC =6A9 «D4 00054 CLRL  DBGSSCR_CURDISP_INPUT : 
6A 53 D1 00057 3s: CMPL DISPTR, “DBGSGL_SCREEN_OUTPUT + 1068 
02 12 0005A BNEQ 4$ ; 
6A D4 0005C CLRL  DBG$GL_SCREEN_OUTPUT : 
FO AA 53 D1 OO0SE 4$: CMPL DISPTR> DBG$GC_SCREEN_INPUT + 1069. 
03 12 00062 BNEQ ; 
FO AA D4 00064 CLRL § DBG$GL_SCREEN_INPUT : 
53 DD 00067 S$: PUSHL DISPTR : 1070 
0000v CF 01 FB 00069 CALLS #1, DBGSSC EMPTY DISPLAY : 
03 08 A3 91 O006E 6$: CMPB ss B(DISPTR), F + 1080) 
27 12 00072 BNEQ : | 
03 56 D1 00074 CMPL = RO, #3 + 1081 | 
ey 13 00077 BEQL ; 
08 ag 53 D1 00079 CMPL  DISPTR, DBG$SCR_CURDISP_SOURCE + 1084 
03 12 0007D BNEQ 7$ F | 
08 Ad D4 0007F CLRL § DBG$SCR_CURDISP_SOURCE ; | 
04 AA 53 D1 00082 7$: CMPL  DISPTR, DBG$GL_SCREEN_SOURCE + 1085 
03 12 00086 BNEQ 8$ ; 
04 AA D4 00088 CLRL §§ DBG$GL_SCREEN_SOURCE : 
53 DD 00088 8$: PUSHL DISPT > 1086. 
0000v CF 01 FB 0008D CALLS #1, DBGSSCR_EMPTY_DISPLAY ; | 
34 A3 7C 0009 CLR 32 (DISPTR) : 1087 
3¢ a3 7¢ 9009 CLRQ 60(DISPTR) : 1089 
44 Aad D4 00098 CLRL  68(DISPTR) > 1091 
48 A3 D3 00098 9$: TSTL 72(DISPTR) : 1098. 
06 13 0009 BEQL 10s : 
48 A3 DD OOOA PUSHL 72(DISPTR) : 1100. 
68 01 FB 000A3 CALLS #1, DBGSREL_MEMORY ; 
08 A3 56 90 OOOA6 10$: MOVB 6, B(DISPTR) : 1103 
48 «A 14 AC DO OOOAA MOVL CONTENT PTR, 72(DISPTR) : 110 
50 Oc aC 00 OOAF 11$: MOVL  WPTR, RO : 1110. 
36 1 0083 BEQL 16$ ; 
51 12 A3 3C 0008 MOVZ2WL 1 (DISPTR) . OLD_RLEN : 1117 
52 OA Ad 3¢ 00089 MOVZWL 10(RO), NEW _RLEN : 1118 
10 A 08 Ad 7D 000BD MOVO 8 (RO), 16(DISPTR) : 1119 
OA A’ 02 88 000C2 BISB2 #2, 10(DISPTR) : 1131 
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DBGSCREEN 1b. Sep-1984 730: AX-11 Bliss-32 V4.0-74 ep 51 
ybes500 12-081 3be 95:79:25 «HONS Ba SBacecheeno35.1 eal’ 
03 D1 00179 CMPL —séRG, #3 : 1235 

8 oy 17¢ BEQL 8S : 
04 : Di 0017E CMPL R¢ ry + 1236 
$ Ds OO18S 228: beef on : 1238 

0000v cf Q4 F 188 CALLS #1, DBGSSCR_GENERATE_SCREEN : 
0 3 pO 0018A 27$:  MOVL  ODISPTR, RO + 1243 
04 0018D RET t 1265 


; Routine Size: 398 bytes, Routine Base: DBGSCODE + OCDS 
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ROUTINE DBGSSCR_EMPTY_DISPLAY(DISPTR): NOVALUE = 


i FUNCTION 
: This routine empties a screen display of its contents, meaning that 
all text Lines in the ss are deleted. When this routine returns, 


1 
; the specified Screen Disp | entry is still around with all its attri- 
; butes intact, but all text Lines in the oreptey (i.e., all tins Line 
Entries) have been deleted and released back to the memory pool. 
i INPUTS 
: DISPTR = A pointer to the Screen Display Entry for the display whose 
: contents are to be emptied. 
i OUTPUTS 
: NONE 
BEGIN 
MAP 
DISPTR: REF DBGSDISP_ENTRY; ! Pointer to Screen Display Entry 
OCAL 
DLEPTR: REF DBGSDLINE ENTRY, ! Pointer to current Display Line Entry 
FLINK: REF DBGSDLINE_ENTRY; ! Pointer to next Display Line Entry 


lear out all scroll settings, all Display Line Entry pointers, and the 
ine count in the Screen Display Entry. 


PTR = .DISPTRCDBGSL_DISP_START_LINE_PTRI; 
PTRCDBGSL_DISP_START_LINE_PTR] = DISPTRCDBGSL_DISP_START_LINE PTR]; 


PTRCDBGS$L_DISP_END_LINE_PTR] = DISPTRCDBGSL_DISP_START_LINE_PTRI; 
G$L“DISP_WINDOW_PTR] = 0; 

PTRCDBG$SW_DISP_LINECNT) = 0; 

PTRCDBG$W_DISP_DROW) = 1; 

PTRCDBG$W_DISP_SCROLL] = 0; 

PTRCDBGSV_DISP-INVSCRJ = TRUE; 
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! Then delete all Screen Display Line Entries by releasing them back to 
the memory pool. 


WHILE. -DLEPTR NEQ DISPTRCDBGSL_DISP_START_LINE_PTR] DO 
FLINK = .DLEPTRCDBGSL_DLINE_FLINK); 
DBGSREL_MEMORY(.DLEPTR); 

DLEPT NK: 
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Also release all Error Line Entries attached to the display. 
DLEPTR = .DISPTR(DBGSL_DISP_ERROR_PTR); 
DISPTRCDBG$L_DISP_ERROR_PTR] = 0; 

WHILE .DLEPTR NEQ™O DO 


ee ee ce ee ee ce ce ce ce ee ee ee De ce ed ed ee ee ed 
ee ce ee ce ec ee ee ee ed ed ed 
ee a mm eed od ed dd ed 
ASAP SPPININIAIPINININPDINYNINININIPYI NIN NIPIPYNINININIDININIPIPINNININININIPINIPIPINIPYIPIPIPUNPINUPOPPUPoPor%yd 


ooo 


+ <go ] 


Be Pe Se Be Se Be Be Ge Se BeBe Se Se Ge SHS Se Se Se Se Se Se Se Se Se Se Se Se Se Fe See Se Se Se Se Se Se Se Geese ee Se Fe Se ee ee Se Se Se Se ee Se BeBe aee 


ewer 
DBGSCREEN 


a igenze ye 20-238 
RC JDBGSCREEN.B32;1 


oan 


ces 


c 
. 
> ] 
rs 
a 
. 
a 
z 
°o 
oe wn 
te] 
.~ 4 . 
2 oo 
= aw 
= a 
ve € 
a a 
w 
2 =z 
_ °o 
—jJ*s c 
on~ 
x a 
= . 
“fa oe 
Ow 
ow 4) 
aa rc 
2 ee ¢ 
ac~ mw a 
-—->Z ww 
aae c 
wow °o 
jz ue rw) 
Qu - 
= ~ 
on @ 
| — 
wa a 
2xar- “ 
Zea. -e« - 
UOe-OWA wo se 
ws@oosZe z 
@uOow oe « 
= ww 
- -—-§ 2 
w 2 
—— ee w 


MTMOPR-DOOOr- UM ST 
PETIA 


So coed geek cent coal eel cell cell cool cell eee andl 


Se 6S SS85. 
10. GO G0 GO GO 60 GO GO 60 Os O» 
COe Or Or OO OOO 
I coll ooeelh eel, cee cool ceeel cee eel eee cee oe oo 


COOOOCOCOSOOSSSOSOOSOOOSOOOOOOOCSoooo 


WOWDSCOT FOTIO-MOODO-Oyrmoo@orv 
POOooOoODMMDOWO- 20Ou0-000"-00u06"0 


oo ODooenumMsToOo aM wT -—™ w wT 
rf KRODDOOO OO eeSo0 3S o- 
NN ON NNNNINININN NIN NINE RE OMe 
- -_— eee KF EO SE EK OE EF OO Oe 
PSPSPS PSPS TSS HS HSS SSS SS FS SSSR SS HS SCS FESR FE FESR HEHEHE SEE HS 
Oo 
eo > > 
= [24 a 
@. “ = “ £ 
“> = w « = w 
rz -—- ££ — —_- £a 
zco a a —- a 4 -— 
“= = . wa w ue wa 
MUN «a ~ aw ww st wus 
aetaacw wv NU NE .- cu & . Ga 
. 6 an c « ~ *fa ~ Aa 
NY + sOMw ~ ~~ « a wo 2 a wo 
“Swen COnasnOoec Kam: ane am + 
>= eM eMC §!- 6A OM CUR) OA OM 
<q ouvioa- aac @wawa azeacawa Zz 
J >PUUwWN 8 ewww Jus Se ~~ Jus se 
& BO VEMNMOOK UN JHB Ue UAT ST UAB UI UA 
WMnMOOM~AZewTMB—-BOWMW~ ORuUe rr ovr~oRzunm 
— 
“~ 
—-a ee eee ee ee ee ee eee ee 
Q2O>r >>> 32> E022>20 4002449070 542-02>44>0r 
het ¢ ¢ 2 4 2 tutet teptet | feet + + fered + fowt tt 
on *EFTFTFFPCYCLPVOOITAVVGEOS+OFOAVF OX 
a 
Vv 
” 
of) 
wo - 
@ A “A vad 
a - NN /! wT 
S NOOK TR OWRNDVe — FOC VW OUWwe-sO 
1) od od oe ee DD A A Aad oe oe oe oe oe a a a 
S ee ee epee eof e wl olo lo lololololololololololalelq) 
So 
vw 
~ 
oO 
Oo 


a 
VLNUMAN OI CUCM OMIM SF UII) OP IMe TF 
IIOMNMN CF CO DOM OOMOMNw dT NOWOMOoMw 


20 
8 
E 


vw wu 
Ne O&O wm 


000000006 00 9 
04 


18 


87 bytes, Routine Base: DBGSCODE + 0E63 


; Routine Size: 


B 16 


! If there are no Noun Nodes, then the /ALL qualifier was specified and all 
! displays are to be cancelled. Hence we loop to delete all entries on the 
' Screen Display List until no such entries are left. We then return. 


! 
' 
' 
1 
NOUN NODE = .VERB_NODECDBGSL_VERB_OBJECT_PTRI; 


DBGSCREEN 16-Sep-1984 02:30: AX-11 Bliss-32 V4.0-74 Page 54 
vo $600 14-Sep-19 4 95:79:24 DEBUG. GRCIBBGSCREEN.B355 1 . (12) 
a? 5 GLOBAL ROUTINE DBGSSCR_EXECUTE_CANDISP_CMD(VERB_NODE): NOVALUE = 
95 : ! FUNCTION. 
96 8 : This routine executes the CANCEL DISPLAY command. It accepts the 
97 9 } address of the Verb Node for the command as input and then extracts 
98 0 : the command parameters and executes the command, The command param- 
99 1 : eters are either a list of displays to be cancelled, each represented 
00 ¢ : by a Noun Node, or the /ALL qualifier, represented by having no Noun 
01 : Nodes. 
O¢ 4 ‘ 
0 5 ' INPUTS 
04 6 : VERB_NODE - A pointer to the Verb Node for the CANCEL DISPLAY command 
05 ( : e executed. The Verb Node along with its attached Noun 
06 8 : Nodes contains all information picked up during the parsing 
07 9 : of the command. 
08 0 : 
9 1 ' QUTPUTS 
10 ¢ : NONE 
11 ! 
12 4 
13 5 BEGIN 
14 6 
15 7 P 
18 VERB_NODE: REF DBG$VERB_NODE; ! Pointer to input Verb Node 
18 0 OCAL 
19 1 DISPTR: REF DBGSDISP_ENTRY, ! Pointer to current Display Entry 
9 ; NOUN_NODE: REF DBG$NOUN_NODE; ! Pointer to current Noun Node 
; 4 
5 
4 6 
5 7 
6 8 
7 9 
8 0 
4 
0 
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9 IF .RNOUN_NODE EQL~0 

0 THEN 

1 BEGIN 

38 PALE sIORCECR SIMPL AL AISTERD NEQ DBGS$SCR_DISPLAY_LIST DO 

4 DISPTR = .DBGS$SCR_DISPLAY_LIST(O]; 

36 DBGSSCR_DELETE_DISPLAY(DISPTRLDBGSA_D1SP_NAME3) ; 

38 RETURN; 

39 1 END; 

: $3 
42 64 ! Noun Nodes are present, one for each specified display to cancel. Loop 
43 65 ! through the Noun Nodes and delete each corresponding display. Then 
44 °¢] ! return, 

45 6 ; 

4g 68 WHILE :NOUN_NODE NEQ 0 DO 

48 % DBGS$SCR_DELETE_DISPLAY( .NOUN_NODECDBG$L_NOUN_VALUE)); 

49 71 NOUN_NOBE = .NOUN_NODECDBG$L_NOUN_LINK]; 


16 
DBGSCREEN bese =1984 02:30:21 AX=11 Bliss-32 vV4.0-74 Page 55 
¥002000 eae 08:30:74 DEBUG. SRC IDBGSCREEN.B3 31 . (12) 
; 1250 1 if END; 
: 1883 1352 RETURN 
3 1 26 1375 
3 1254 1376 61 END; 

001C 00000 sENTRY DBGSSCRLEXECUTE_CANDISP_CMD, Save R2,R3,R4 ; 1315 

54 00000000" EF 4 3 0006 MOVAB DBGSSCR-DISPLAY_LIST, R& : 
50 04 aC 00 0000 MOVL VERB_NOBE, R : 1350 

53 08 Ad 00 Boone MOVL ggnoy. NOUN_NODE 3 
17 12 00013 BNEQ $ ; 1351 
50 64 9E 00013 1$: MOVAB DBGSSCR_DISPLAY_LIST, RO 3 1354 

50 64 D1 00016 CMPL DBGSSCR_DISPLAY_LIST, RO : 

1¢ 13 00019 BEQL 4 ; 
52 64 o9 00018 MOVL DBGSSCR_DISPLAY_LIST, DISPTR 3 1356 
4C A2 99F OOOTE PUSHAB 76(DISPTR) 3 1357 

FCFO=sCF 01 FB 0002° CALLS #1, DBGSSCR_DELETE_DISPLAY 3 
EB 11 00026 BRA 1$ 3 1354 
0D 13 00028 $$ BEQL 4$ ; 1368 
63 DD 0002A 3$ PUSHL (NOUN_NODE) ; 1370 

FCEE CF 01 FB B00ee CALLS #1, DBG$SCR_DELETE_DISPLAY 5 
53 08 A3 00 00031 MOVL 8(NOUN_NODEY, NOUN_NODE 3 1371 
Fi 11 00035 BRB 2s ; 1368 
04 00037 4$ RET ; 1376 
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16-Sep-1984 30:2 AX-11 Bliss- 

ae 05:70:24 DEBUG. SRC IDB 
GLOBAL ROUTINE DBGSSCR_EXECUTE_CANWIND_CMD(VERB_NODE): NOVALUE = 


' FUNCTION 

This routine executes the CANCEL WINDOW command. It accepts the 
address of the Verb Node for the command as input and then extracts 
the command parameters and executes the command. The command param- 
eters are either a List of windows to be cancelled, each represented 
7 8 Noun Node, or the /ALL qualifier, represented by having no Noun 
odes. 


INPUTS 
VERB_NODE = A pointer to the Verb Node for the CANCEL WINDOW command 
to be executed. The Verb Node along with its attached Noun 
Nodes contains all information picked up during the parsing 
of the command. 


32 v4.0-76 p 6 
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OUTPUTS 
NONE 
BEGIN 
P 
VERB_NODE: REF DBGSVERB_NODE; ! Pointer to input Verb Node 
CAL 
NOUN_NODE: REF DBGSNOUN_NODE, ! Pointer to current Noun Node 
WPTR: REF DBGSWINDOW_ENTRY; ! Pointer to current Window Entry 


If there are no Noun Nodes, then the /ALL qualifier was specified and all 
windows are to be cancelled. Hence we loop to delete all entries on the 
Screen Window List until no such entries are left. We then return. 


OUN_NODE = .VERB_NODECDBGS$L_VERB_OBJECT_PTRI; 
Fei ROUN NODE EQL~0 


BEGIN 
WHILE  .DBGSSCR_WINDOW_LISTCO] NEQ DBGSSCR WINDOW_LIST DO 


WPTR = .DBGSSCR_WINDOW_LIST(O); 
DBGSSCR_DELETE GINDOW(GPTRLDBGSA_WiNDOW_NAME); 


tee we wee eee 


RETURN; 
END; 


! Noun Nodes are present, one for each specified window to cancel. Loop 
: seen the Noun Nodes and delete each corresponding window. Then 

! return, 

‘ 


WHILE .NOUN_NODE NEQ 0 DO 


DBGSSCR_DELETE_WINDOW( ,NOUN_NODECDBGSL_NOUN_VALUE)); 
NOUN_NOBE = .NOUN_NODECDBGSC_NOUN_L INK; 


[ 
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 ¥04=000 eae 08 49:2 DEBUG .SRCIDBGECHEEN. 039; 1 . ag 
3 1313 1434 END; 
3s 1314 1435 
3; 1315 14 § RETURN; 
is 1318 14 
: 1317 1438 1 END; 
001C 00000 ENTRY DBGS$SCR oEXECUTE tomers CMD, Save R2,R3,R4 ; 1377 
36 00000099" EF 4 BOOS MOVAB DBGSSCR. WINDOW_CIS 5 
9 4 AC 00 0000 MOVL VERB_NOBE, R : 1412 
5 08 Ad 08 0000D MOVL f (ROS, NOUN. NODE 3 
17. 12 00011 BNEQ $ 3 1613 
50 64 9E 00013 1$: MOVAB DBGS$SCR_WINDOW_LIST, RO : 1416 
50 64 Di 00016 CMPL DBGSSCR_WINDOW_LIST, RO ; 
1¢ 13 00019 BEQL 4$ 3 
52 64 00 00018 MOVL DBGSSCR_WINDOW_LIST, WPTR : 1618 
10 A2 9Y9F QOOTE PUSHAB 16(WPTRY : 1419 
FD94~—sCGEF 01 FB pa 1 CALLS #1, DBGSSCR_DELETE_wINDOW 3 
EB 11 000 8 ROB 1$° : 1616 
0d 13 000 gf: BEQL 4$ : 1430 
63 DD O002A 3$: PUSHL (NOUN ODE) : 1432 
FD89=—sCF 01 FB podes CALLS DBCSSeR DELETE_WINDOW : 
53 08 A3 v0 00031 MOVL BUNUN. NODES, NOUN_NODE : 1633 
F1 11 00035 BRB 2$ : 1430 
04 00037 4$ RET ; 1438 


3; Routine Size: 56 bytes, Routine Base: DBGSCODE + OEF2 
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| ¥Oe=000 1228674 382 95:79:84 DEBUG. ERCIDBGSCREEN.39; 1 . (14) 
} i 1378 } GLOBAL ROUTINE DBGSSCR_EXECUTE_DISPLAY_CMD(VERB_NODE, SET_FLAG): NOVALUE = 

; 1321 1441 1 ! FUNCTION 

3; 1 § 1706 1! This routine executes the DISPLAY and SET DISPLAY commands. It 

3 1 1445 1! accepts the address of a verb Node for the command as input and 

; 1324 1444 1! it extracts the command parameters so that the command can be 

; 1325 1445 1! executed. Since DISPLAY and SET DISPLAY are a | similar commands 

31 $8 1446 1! in their semantic effects, most processing for these two commands 

3; 1327 1447 1! is identical, with the differences special-cased as necessary. 

; 1328 1448 1! 

: 1° 9 1449 1 ! INPUTS 

; 1350 1450 1! VERB_NODE = A pointer to the Verb Node for the command to be executed. 

; 1331 1451 1! The verb Node, along with its attached Adverb and Noun 

3 1336 1026 1? Nodes, contains all information picked up during the 

3 1337 a : parsing of the command. 

; 1335 1455 1! SET_FLAG = TRUE if the command to be executed is the SET DISPLAY 

3 1336 1538 : command and FALSE if the command is the DISPLAY command. 

; 1338 1458 1 ! OUTPUTS 

3; 1339 1459 1! NONE 

3; 1340 1460 1! 

3: 1341 1461 1 

; P| re § 2 BEGIN 

; 134 14635 2 

3 1344 1464 2 P 

3: 1345 1465 2 VERB_NODE: REF DBGSVERB_NODE; ! Pointer to input Verb Node 

3; 1346 1466 2 

3; 1347 1467 2 LOCAL 

; 1348 1468 2 ADVERB_NODE : ! Pointer to the Adverb Node with the 

3; 1349 1469 2 REF DBGSADVERB_NODE, e command qualifier information 

; 1350 1470 2 CLEAR_FLAG ' Flag set for /CLEAR qualifier 

; 1351 1471 2 CONTERT_PTR, i Pointer to DEBUG command List which 

3 1352 1076 2 : defines a contents 

; 1353 1473 2 DISPTR: REF DBGSDISP_ENTRY, ! Pointer to current tooth ay Cateye 

3; 1354 1474 2 FLAGWORD, ! Flag & size \gnguers from Adverb Node 

3 T3509 1475 2 GENERATE_ALL_FLAG, ' Flag set for /GENERATE all displays 

; 1356 1476 2 GENERATE FLAG, ' Flag set for /GENERATE quel itier 

; 1357 1477 2 HIDE_FLAG, ' Flag set for /HIDE qualifier 

3; 1358 1478 2 KIND, ' The display kind (content spec kind) 

3 1359 1479 2 LIST_LOCATION, ! Display List location (for /HIDE) 

3 1360 1480 § MARK FLA ! Flag set for /MARK CHANGE qualifier 

3; 1361 1481 NOMARK_FLAG ' Flag set for /NOMARK_CHANGE qualifier 

: 136¢ 1488 NAMEPTR: REF VECTORC BYTE), i Pointer to ASCIC display name 

3 136 148 NOUN_NODE: REF DBGSNOUN_NODE , ' Pointer to current Noun Node with 

3 1364 1484 ‘ display and attribute info 

3 1365 1485 REFRESH_FLAG, ! Flag set for DISPLAY/REFRESH command 

3 1366 1058 REMOVED _FLAG, ' Flag set for /REMOVED qualifier 

3; 1367 148 SIZE, ' Size of eteplay (maximum Lines) 

; 1368 1488 2 TEMP, ! Parameter for SMGSSET_KEYPAD_MODE 

3 1369 1489 WPTR; ! Pointer to current Screen Window Entry 

3; 1370 1490 

3 1371 1491 

3 1376 163% : 

; 132 res ; Extract all the qualifier information from the command Adverb Node. 

3; 1375 1495 ADVERB_NODE = .VERB_NODECDBGSL_VERB_ADVERB_PTR); 


eee 
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BEGIN 

DBGSSCR_GENERATE_SCREEN(O); 

RETURN; 

END; 
! If this is the SET DISPLAY command and no display size was specified 
} use the default display size. 
iF .SET_FLAG AND (.SIZE EQL 0) THEN SIZE = 50; 


POPOPOPORIMOMOMONOR 2 9 OS 
DONO UVEWN—OO 


! Loop through all deploys specified on the command and take the appro- 
priate semantic action for each such display. 


NOUN_NODE = .VERB_NODECDBGSL_VERB_OBJECT_PTR); 
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137 1698 FLAGWORD = .ADVERB_NODECDBGS$L_ADVERB_VALUE]; 

137 149 REFRESH FLAG = .FLAGWORD<V_ (03>; 

1378 1338 CLEAR_FCAG = .FLAGWORD<V_(T)>; 

1379 149 GENERATE _ALL_FLAG = .FLAGWORD<V_(2)>; 

1380 1500 GENERATE FLAG = ,FLAGWORD<V_(3)5; 

1381 1501 FLAG = .FLAGWORD<V_(4)5; 

1 rf) 1206 RK_FLAG = .FLAGWORD<V_(5)>; 

138 150 NOMARK_ FLAG = .FLAGWORD2V_ (65>; 

1384 1504 REMOVED_FLAG = .FLAGWORD<9_(7)>; 

1385 1505 SIZE = TFLAGWORD<V_(16,16)5; 

1387 1309 

1388 1506 ! If this is the DISPLAY/REFRESH command, process that command right away. 
1389 1509 ! There are no Noun Nodes for this command. Note that we reset ‘‘applica- 
1390 1510 ! sion mode’’ on the terminal (activate the keypad keys) if keypad mode is 
1333 ae 2 } set. 

1398 1218 IF .REFRESH_FLUAG 

1398 1318 THEN BEGIN 

1396 1516 3 INCR I FROM 0 TO_DBGSK_PASTE_SIZE - 1 DO 

if 44 3h ; OLD_VALIDC.1] = FACSE; 

1399 1519 ; IF .DBGSGB_KEYPAD_ INPUT 

1400 1520 THEN 

1202 1332 TEMP = 1 

1203 1358 4 SMGSSET_KEYPAD_MODE (DBGSGL_KEYBOARD_ID, TEMP); 

1404 1524 END; 

1405 1525 

1406 1526 RETURN; 

1407 1527 2 END; 

1209 1339 

1410 1386 2 ' If this is the DISPLAY/GENERATE command without a display List, we also 
1411 1531 2 ! process the command right away as there are no Noun Nodes. Here we 

: ¢ 1336 2 regenerate the contents of all non-removed, automatically updated screen 
1414 1534 Ep pecapecti 

1415 1535 IF .GENERATE_ALL_FLAG 

1416 1536 THEN 
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WHILE .NOUN_NODE NEQ 0 DO 
BEGIN 
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Extract all the parameter values fiom the Noun Node. 


NAMEPTR = .NOUN_NODECDBGSL_NOUN_ VALUE); 
WPTR = .NOUN_NODE(DBG$L_NOON_VACUE2); 
KIND = .NOUN_NODELDBGS$L- NOUN” VALUE 3); 
CONTENT_PTR = .NOUN_NODELDBGSL_NOUN_VALUE4); 


! Refetch the mark-changes and generate flags--these flags are modified 
} in the loop and must therefore be reset here. 


GENERATE_FLAG = .FLAGWORD<V_(3)>; 
MARK_FLAG = .FLAGWORD<V_(5)5; 


et the list location in the Screen Display List where the display 
hould be inserted. This is determined by the /HIDE qualifier. 
T 


LOCATION = +1; 
IDE_FLAG THEN LIST_LOCATION = -1; 


: S$ 
s 


S 


' 
i 
: 
LI 

IF .A 


! If this is a SET DISPLAY command, call CREATE_DISPLAY to create the 
desired new display. 
if .SET_FLAG 
THEN 
DISPTR = DBGSSCR_CREATE_DISPLAY’ .NAMEPTR, a 


E, .CONTENT_PTR) 


: Otherwise, this is a DISPLAY command, so we call DISPLAY_COMMAND to 
execute the desired semantics on the specified display. 


PAAAAPAPA AAA MMIII ES BEBE ELLE 
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7 : 
7 ELSE 
? DISPTR = DBGSSCR_DISPLAY_COMMAND(.NAMEPTR, .KIND, .WPTR, 
4 ~SIZE, .CONTENT_PTR, .< IST_LOCATION); 
7 
7 ! If this Seeley was marked as removed but is being ‘‘unremoved"’ with 
7 ! this DISPLAY command, set the ponerete flag. This ensures that an 
7 : automatically updated display has its contents regenerated whenever 
7 t is unremoved. 

If _;,DISPTRCDBGSV_D1SP_REMOVE] AND (NOT .REMOVED_FLAG) 


GENERATE_FLAG = TRUE; 
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! If this display kind is not (or is no longer) DBGSK_DISP_DO, clear 
' the ag Lag in the display entry. If the 7MARK-CHANGE or 
! /NOMARK_CHANGE qualifier was also specified on this command, signal 
! an informational message. 
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IF ,DISPTRLDBGSB_ DISP_KIND] NEQ DBGSK_DISP_DO 


BEGIN 
DISPTREDBGSY DISP_MARKFLG] = FALSE; 
-MARK_FLAG OR [NOMARK_FLAG 


NEN 

SIGNAL (DBGS_NOMARKCHNG, 1, DISPTRCDBGSA_DISP_NAMEJ); 
MARK_FLAG = FALSE; 
END; 


: Set the remove and mark-changes flags as appropriate. 


DISPTRIDBG$V_DISP REROVE) = ,REMOVED_FLAG; 
a -MARK_FLAG THER D pTRCoaGSY V_DISP pannel 6) 


TAY 
NOMARK LECAG CHEN BS Pp GSv_DISP_MARKF = 


J] = FALSE; 


! If the display is eotee +p remove any permanent pointers to 
i the display’s Screen Display et F This means that any SELECT 
setting to this display is cancelled. 

if .REMOVED_FLAG 

THEN 


BEG! 


IF .DISPTR EQL .DBGSSCR_CURDISP_INPUT THEN DBGSSCR_CURDISP_INPUT = 0; 
IF .DISPTR EQL .DBGSSCR_CURDISP_OUTPUT THEN DBGS$SCR_CURDISP_OUTPUT = 0; 
IF .DISPTR EQL .DBGSSCR_CURDISP_SCROLL THEN DBGSSCR_CURDISP_SCROLL = 0; 
IF .DISPTR EQL .DBGSSCR_CURDISP SOURCE THEN DBGSSCR_CURDISP SOURCE = 0; 
IF .DISPTR EQL .DBGSGL_SCREEN_ERR HEN D L_SCREEN_ERROR = 0; 
IF .DISPTR EQL .DBGSGL_SCREEN_HISTORY THEN DBGSGL_SCREEN_HISTORY = 0; 
IF .DISPTR EQL .DBGSGL_SCREEN_INPU THEN LUSCREEN_INPUT = Q; 
IF "Bitotn EQL .D $e LISCREEN_OUTPUT THEN DBGSGL_SCREEN_OUTPUT = 0; 
IF .DISPTR EQL .DBG SCREEN SOURCE THEN DBGSGL-SCREEN_SOURCE = 0; 

1 Aeaaamaante DISP_ INVSCR] = TRUE; 


! If the /CLEAR qualifier was specified, clear the display's entire 
i contents so there are no Lines of text in the display. Also clear 
out all SOURCE display module context information. 


if .CLEAR_FLAG 

THEN 
BEG! 
DBGSSCR_EMPTY_DISPLAY(.DISPTR); 
DISPTR(DBGSL_DISP_MODPTR) = 0; 
DISPTREDBGSL_DISP-CENTER) = 0: 
DISPTR DBGSL-D1SP-WARKL INE) ="0; 
DISPTREDBGSL_DISP"MINLINE) = 0; 
DISPTR DBGSL~DISPTMAXLINE} = 0: 


' If this is the SET DISPLAY command or if the /GENERATE qualifier was 


116 
CBGSCREEN 16-Sep-1984 30:2 AX-11 Bliss-32 v4.0-74 Page 6 
| V0e- 1e-8ep-19 4 05:70:24 DEBUG. SRC IDBGSCREEN.B3 31 . af 
3; 1547 1667 ! specified on the DISPLAY command, generate the display contents for 
3 1348 1998 automatically generated displays. ° _— 
: 1320 1670 IF .SET_FLAG OR .GENERATE_FLAG THEN DBGSSCR_GENERATE_SCREEN(.DISPTR); 
: 155 167 
3 1388 1678 Link to the next Noun Node and Loop. 
; 122? 1876 NOUN_NODE = .NOUN_NODECDBGSL_NOUN_LINK; 
: 1557 1677 2 END: ! End of Loop over noun nodes (displays) 
Si eh on 
: 1560 1680 ' The command processing is completed. Now return. 
: 1561 1681 i . ° ~ 
3 1208 1086 RETURN; 
: 156 168 
: 1564 1684 1 END; 
OFFC 00000 -ENTRY DBGSSCR_EXECUTE_DISPLAY_CMD, Save R2,R3,R4,-; 1439 
SE 10 ¢2 00002 SUBL2 #16, §P : 
52 04 aC 00 00005 MOVL VERB_NODE, R2 + 1495 
50 04 A2 00 00009 MOVL 4(R23, ADVERB_NODE : 
55 04 AO DO 00000 MOVL § 4(ADVERB_NODES, FLAGWORD + 1496 
50 55 01 00 EF 00011 EXTZ2V #0, #1, PLAGWORD, REFRESH FLAG : 1497 
7E 55 01 01 EF 00016 EXTZ7V #1, #1, FLAGWORD, CLEAR_FCAG : 1498 
53 55 01 O¢ EF 0001B EXTZV He. #1, FLAGWORD, GENERATE_ALL_FLAG + 1499 
58 55 01 03 EF 90020 EXTZV #3, #1, FLAGWORD, GENERATE FLAG ; 1500 
7E 55 01 04 EF 00025 EXTZV #4, #1, FLAGWORD, HIDE_FLAG : 1501 
57 55 01 05 EF OfO2A EXTZV #5, #1, FLAGWORD, MARK FL : 1502 
7E 55 01 06 EF Oouer EXTZV . #1, FLAGWORD, NOMARK FLAG : 1503 
SA 55 m1 07 EF 000 EXTZV #7, #1, FLAGWORD, REMOVED_FLAG : 1504 
56 55 ‘0 10 EF 00039 EXTZV #16, #16, FLAGWORD, SIZE : 1505 
2B 50 €9 0003E BLBC REFRESH_FLAG, 4$ : 1513 
50 D4 00041 CLRL : 1516 
00 00000000° EF 50 ER 00043 1$: BCC 1, OLD_VALID, 2$ : 1517 
F4 50 14 £3 0004B 2$: AOBLEQ # ‘ Z 
01 000000006 00 cs 0004 LBS DBG$GB/KEYPAD_INPUT, 3$ : 1519 
} 18 AE 01 »bO 80089 3$: MOVL #1, TEMP : 1532 
18 AE 9F 00058 PUSHAB TEMP : 15 
00000000G 00 9F OO0SE PUSHAB DBGS$GL_KEYBOARD_ID Z 
900000006 00 02 FB 00064 CALLS #2, SMGSSET_KEYPAD_MODE ; 
04 00068 RET : 1515 
08 53 £9 0006C 4$: BLBC GENERATE_ALL_FLAG, 5$ : 1333 
7E 04 b006F CLRL =(SP : 1538 
0000v CF 01 FB 00071 CALLS #1, DBGSSCR_GENERATE_SCREEN ; 
04 pers RET : 1937 
05 08 at E9 00077 5$: BLBC SET_FLAG, 6$ > 1546 
9 is 0078 BNEQ ; 
2¢ § DO 90070 MOVL #50, SIZE F 
5 0& A2 DO 00080 6s: MOVL § 8(R2), NOUN_NODE : 1552 


‘pret seu li nsiniegebanpenatiaienisenipensiteaniinasmacmiatatads 
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| 01 120008 7$:  BNEQ 8 : 1553 
04 000 RET : 
| 5g 63 00 00087 8s MOVL (NOUN_NODE), NAMEPTR : 1559 
59 so. a p0 008A MOVL §_12(NOON_NODE), WPTR + 1560 
10 AE 10 A3 7D 000 MOVQ § 16(NOUNNODE), KIND : 1561 
58 55 01 03 EF 0009 EXTZV #3, #1,°FLAGWORD, GENERATE_FLAG : 1568 
57 55 01 3 EF 0009 EXTZV ° FLAGWORD, MARK_FLAG : 1569 
Oc AE 1 00 0009D MOVL #1. LIST_LOCATION + 1575 
04 04 AE €9 O00A1 BLBC HIDE FLAG, 9$ : 1576 
Oc A 01 ce 00A5 MNEGL #1, CIST_LOCATION : 
1 08 AC €E9 000A9 98: BLBC SET_FLAG? 10 + 1584 
14 AE DD 0 AD PUSHL  CONTENT_PTR > 1585 
56 DD 00080 PUSHL SIZE : 
59 DD 00082 PUSHL  WPTR : 
1¢ AE DD 00084 PUSHL + 1584 
5B DD 00087 PUSHL NAMEPTR : 
FASE CF 05 FB 00089 CALLS #5, DBGSSCR_CREATE_DISPLAY : 
14 11 O00BE BRB 11$ ; 
OC AE DD 000CO 108: PUSHL LIST_LOCATION + 1593 
18 AE bd 000C PUSHL CONTENT_PTR : 
56 DD 000C6 PUSHL SIZE : 
59 DD 000C8 PUSHL  WPTR + 1592 
20 AE DD OOOCA PUSHL KIND : 
5B DD 000CD PUSHL NAMEPTR : 
FCD? CF 06 FB OOOCF CALLS #6, DBGSSCR_DISPLAY_COMMAND : 
52 50 DO 00004 11$:  MOVL RO. D : 
54 08 A2 9E 00007 MOVAB &(DISPTR), R4 > 1601 
06 02 aA& €9 00008 BLBC (R4) : 
03 5A EB OOODF BLBS § REMOVED FLAG, 12$ : 
58 01 DO 000E2 MOVL #1, GENERATE_FLAG : 1603 
02 64 91 O00ES 12$: CMPB sé RG), 2 + 1611 
1E 13 O00E8 EQL 15$ : 
02 As 10 8A OOOEA BICB2 #16, 2(R4 + 1614 
03 57 €8 OOOEE LBS MARK_FLAG, 1 > 1615 
12 6— €9 OOOFI LBC -NOMARK FLAG, 14$ : 
4C Ad OF OOOFS 138 PUSHAB 76(DISPTR) > 1617 
01 DD 000F7 PUSHL #1 : 
00028FD3 8F dD O00F9 PUSHL #167891 F 
000000006 00 03 FB OOOFF CALLS #3, LIBSSIGNAL : 
57 D4 00106 148: CLRL ARK FLA : 1619 
02 AG 01 00 5A FO 00108 15$: INSV REMOVED FLAG, #0, #1, 2(R4) : 1625 
04 57 E9 0010€ BLBC_ MARK_FLAG, 16$ > 1626 
02 Aé 10 88 00111 BISB2 #16, ~2(R45 : 
04 6f 9 09115 16$:  BLBC  NOMARK_FLAG, 17$ : 1627 
02 A 1 A 0011 BICB2 #16, 2TR4) : 
03 5A 58 0011C 17$:  BLBS REMOVED_FLAG, 18$ > 134 
0088 1 OO11F BRw : 
00000000' EF 52 D1 00122 188: CMPL DISPTR, DBG$SCR_CURDISP_INPUT > 1637 
06 12 00129 BNEQ 198 : 
00000000° gf D4 00128 CLRL § DBGSSCR_CURDISP_INPUT : 
00000000° €F 2 01 ot 1 19$: CMPL DISPTR, DBG$SCR~CURDISP_OUTPUT > 1638 
06 12 00138 BNEQ 208 ; 
00000000° gf D4 ot A CLRL  DBGSSCR_CURDISP_OUTPUT ; 
00000000' EF 32 pt 0149 20$ cMPL DISPTR, DBGS$SCR~CURDISP_SCROLL > 1639 
00000000' EF D4 a9149 CLRL  DBGSSCR_CURDISP_SCROLL : 
00000000" €F 2 D1 OO14F 218: CMPL DISPTR, DBG$SCR~CURDISP_SOURCE > 1640 
| 


GEERT AT EAE Bs Si SRE SR SE ER i BEAN AT AO AR EN OEY TRE eB 


—_——_---—-—----—- 


| DRGSER EN ‘tt $ep-1984 02:30:2 AX-11 Bliss-32 v4.0-7 Page 64 
v 12-8087 1382 99:79:2 DEBUG. SRCIDBGSCREEN.B39; 1 | 9 1a) 
| 06 12 F528 BNEQ 22$ s 
00000000' gS D4 001 CLRL DBGSSCR_CURDISP_SOURCE 3 
00000000" EF 2 D1 001 E 228 CMPL BisPTR, “DBGSGL r stReen. ERROR 3 1641 
06 12 0014 BNEQ $ : 
00000000’ gE 04 3 2 CLRL DBGSGL_SCREEN_ERROR 5 
00000000" EF 2 01 190 238 CMPL DISPTR, DBGSGC_SCREEN_HISTORY + 1642 
06 12 00174 BNEQ 24$ : 
00000000' gf D4 00176 CLRL DBGSGL_SCREEN_HIS : 
00000000" €F 2 01 giz 24$ CMPL DISPTR, peGscC. SCREEN. INPUT 3 16463 
06 12 bai8 BNEQ 25$ : 
00000000' F D4 00185 CLRL DBGSGL_SCREEN : 
00000000" EF 2 D1 pot 25$ CMPL  DISPTR, peGscr. SCREEN, OuTPuT ; 1644 
6 12 001 BNEQ 26$ 3 
00000000’ gf D4 00194 CLRL DBGSGL_SCREEN_OUT 3 
00000000" EF 2 D1 0019A 268 CMPL DISPTR, DBGSGC_ SCREEN. SOURCE : 1645 
06 12 001A) BNEQ 27$ : 
00000000' ef D4 001A3 CLAL DBGSGL_SCREEN_SOURCE : 
02 4 2 88 OO1A9 278: BISB2 #2, 2(R4) : 1666 
10 08 AE €9 OO1AD 28$: LBC CLEAR FLAG, 29% > 1654 
52 DD 00181 PUSHL DISPTR 3 1657 
FD81 = CF 01 FB 00183 CALLS #1, DBGSSCR_EMPTY_DISPLAY : 
34 A2 7C 00188 CLRO 52(DISPTR) : 1658 
3c) 60— A2—«s7C.:s«CO018B CLRQ 60(DISPTR) : 1660 
44 <A2 04 001BE CLRL 68(DISPTR) z 1662 
03 08 AC €8 001C1 298 BLBS SET FLAG, 30$ : 1670 
07 58 €9 001C5 BLBC GENERATE_FLAG, 31$ : 
52 DD 001C8 30S: PUSHL DISPTR : 
0000v CF 01 FB OOICA CALLS #1, DBGSSCR_GENERATE_SCREEN : 
53 08 A3 DO OOICF 31S: MOVL 8(NOUN_NODE), NOUN_NODE 3: 1675 
FEAE 31 00103 BRW 7$ 1553 
04 00106 RET : 1684 


; Routine Size: 471 bytes, Routine Base: DBGSCODE + OF2A 


SS 


cc -- 


M16 
| OBGSCREEN 16-Sep-1984 02:30:2: AX-11 Bliss-32 v4.0-74 Page 65 
 V0G~ 14-Sep-1984 95:70 e8 DEBUG. SRC IDBGSCREEN.B3 3? . (183 
; 1367 16 5 } GLOBAL ROUTINE DBGSSCR_EXECUTE_SAVE_CMD(VERB_NODE): NOVALUE = 

; 1568 16 : 1 ! FUNCTION 

; 1569 1688 1! This routine executes the SAVE command which saves the contents of an 

; 1570 1689 1! existing display in a new display with a specified name. It accepts 

; 1571 1690 1! the address of a Verb Node for a SAVE command as input and it extracts 
5 1278 1691 1! the command parameters so that the command can be executed. To execute 
13 197 1938 1! the SAVE command, a new display of kind NORMAL or SOURCE is created, 

3; 1576 1695 1! after which the entire contents of the original display is copied to 

; 1575 16946 1! the new display. The new display also inherits the window attributes 

; 1576 1695 1! and scrolling position of the original display. 

; 1577 1698 1! 

; 1578 1697 1 ! INPUTS 

3; 1579 1698 1! VERB_NUDE = A pointer to the Verb Node for the command to be executed. 
3; 1580 1699 1! The Verb Node, one with its attached Noun Nodes, contains 

3 138) eA : all information picked up during the parsing of the command. 
3 1888 1706 1 ! OUTPUTS 
13 1584 1703 1! NONE 

; 1585 17046 1! 

: 1586 1705 1 

3; 1587 1706 BEGIN 

; 1588 1707 

; 1589 1708 MAP : 

: 4 1 VERB_NODE: REF DBGSVERB_NODE; ! Pointer to the command Verb Node 

; 1236 1711 LOCAL 

3; 159 ar DISPTR: REF DBGSDISP_ENTRY, ! Pointer to existing Display Entry 

; 1594 1713 2 DIS_BLINK: REF DBGSDISP_ENTRY, ! Pointer to previous Display Entry 

3; 1595 1714 2 DIS_FLINK: REF DBGSDISP_ENTRY, ! Pointer to next Display Entr 

; 1596 1715 2 DLEPTR: REF DBGSDLINE ERT ! Pointer to existing Display line Entry 
: 1398 ne 3 Sip teas Det peste ier -urays | pernees se previaus Ptepley tine Retry 
3 HE b+ fA 2 WADLER OISE TA: VOLATILES New tog og entry pointer for handler 
; : P ' Pointer to new display name 

: 1601 1720 5 NEWDISP: REF DBGSDISP_F + RY, ! Pointer to new Screen Display Entry 

3; 1602 1721 § NEWDLE: REF DBGSDLINE * RY ! Pointer to new Display Line Entry 

3 bt ise § a ale REF DBGSNO°~ «ODE, Aang fo the current oe Node 

3 re ! Number of text characters to copy 

3 iene 1796 TEXTPTR: REF VECTORC,BYTE); ! Pointer to display Line's text 

3 1809 1726 NABLE pee 

3 HANDL x SAV : Set up a handler for condition 

1608 1727 ANDLER_EXECUTE_SAVE ( : 3 handler for NOFREE d 

: 190? Hf : HANDLER_DISPTR);! and pass in new Display pointer 
3 1611 1730 

3 1618 1731 

3; 161 17 § ! Loop through all the Noun Nodes attached to the Verb Node. Each Node 

: 161% eS Node corresponds to a SAVE specification to be executed. 

3: 1616 1735 NOUN_NODE = .VERB_NODECDBGSL_VERB_OBJECT_PTR); 

3 1617 1736 WHILE .NOUN_NODE REQ 0 DO 

3; 1618 1737 BEGIN 

3; 1619 1738 

: 1090 1739 : : 

; 1621 1740 ! See if a display already exists that has the same name as the speci- 
: 1622 1741 ! fied new display. If it does, we signal an error and do not allow 
i 
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AX-11 Bliss-32 V oa0. o3s. 
DEBUG. SRC DBGSCRE EEN.B32;1 


1 
Esco) 03:30:24 
} the new display to be created. 


DISPTR = eine LOOKUP _DISPLAY(.NOUN_NODECDBGSL_NOUN_VALUE2)); 
If 


SIGNAL (DBGS$_DISPEXISTS, 1, .NOUN_NODECDBG$L_NOUN_VALUE2]); 


! Pick up the parameters for the current SAVE specification and allo- 
cate a Screen Display Entry for the new display to be created. 


DISPTR = -NOUN NODECDBGSL NOUN_VALUE]; 

tf aN NOUR. NODECDBGSC_NOUR_ VALUE2); 

NEWDISP"= DB BGSGET AEMORY (DBGSK _DISP_ENTSIZE + .NAMEPTRCOJ/2UPVAL + 1); 
HANDLER_DISPTR = TNEWDISP; 


! FILL the display name and the display kind into the new Screen 

i Display Entry. Note that the kind becomes NORMAL unless this is 
i @ source display and that the DEBUG Command List pointer is 
always left zeroed out. 


CHSMOVE(.NAMEPTR[O) + NAMEPTRCO)], NEWDISPCOBGSA_DISP_NAME]) ; 
IF .DISPTRCDBG$B -DISP_ Kinda EQL DBGSk -DISP_SOURCE 


EN 
NEWDISPCDBG$B_DISP_KIND] = DBGSK_DISP_SOURCE 


ELSE 
NEWD1SPCDBG$B_DISP_KINDJ 


DBG$K_DISP_NORMAL; 


Fill in the remaining contents of the new Screen Display Entry. 


NEWDISPCOBGS$B_DISP_REND] = .DISPTRCOBGSB _DISP_REND]; 
NEWDISPCDOBG$W_DISP_FLAGS] = .DISPTRCOBGS$O_DISP FLAGS); 
NEWDISPCOBGS$W_D1ISP— wee = .DISPTR DBG$wW_BISP_RBEG); 
NEWDISPCDBG$W_DISP_RLEN] = .DISPTRCDBGSW_DISP_RLENI; 
NEWDISPCDBG$W_DISP_CBEG] = .DISPTRCDBG$W_DISP_CBEG); 
NEWDISPCOBG$W_DISP_CLEN) = .DISPTRCDBGS$W_DISP_CLEN): 
NEWDISPCDBG$W_DISP_DROW) = .DISPTRCDBG$W_DISP_DROW : 
NEWDISPCDBG$W_DISP_DCOLJ = ae DBGS$W Paae DCOL 
NEWDISPCDBG$W_DISP_MAX_LINECNT] = .DISPTR peasy DIse MAX_LINECNTJ; 
NEWDISPCDBGS$L_DISP_START_LINE_ PTR] = ett bet DBGSL_DISP_START_LINE_PTR); 
NEWDISPCDBGSL_-DISP-END_LINE_PTR] = NEWDISPCDBGSL_DISP_START_LINE_PTRI; 
NEWDISPCOBGS$L_DISP “CentER = .DISPTR DBGSL DI SF HOOP IR: 
NEWDISPCOBGSL-DISP-CENTER] = .DISPTR Sate DISP_CENTER); 
NEWDISPCOBGSL_DISP_MARKLINE) = .DISPTRCOBGSL_DISP MARKL INE); 
NEWDISPCOBGS$L_DISP— Al NLINE] = ESE TRE DB GL BI Se AIM INE): 
NEWDISPCDBGSL_DISP_MAXLINE) = .DISPTRCDBGS$L_DISP_MAXLINE); 
—— new display as being removed and invalidate its scrolling 
coun 
i 
NEWDISPCDBG$V_DISP _REMOV ve} = TRUE; 
NEWDISPCDBG$V~DISP_INVSCR] = TRUE; 
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16-Sep-1984 02:30:21 AX=11 Bliss-32 v4 
12-3 00-1 384 05:70:28 DEBUG. SRC IDBGSCR 


: Loop over the old display's Display Line Entries to make copies of 
all such Lines in the new display. 
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.DISPTRCDBGSL DISP START LINE PTR); 
EPTR NEQ DISPTRLDBGSL_DISP_START_LINE_PTR] DO 


! If this is a Source Display Line Entry, allocate another such 
entry and fill in the fields specific to this kind of Line entry. 


iF .DLEPTRCDBGSV_DLINE_ SOURCEFLG) 
THEN 


BEGIN 
TEXTPTR = DLEPTRCDBGS$A_DLIN 


E_TEXT2]; 

NEWDLE = DBGSGET_MEMORY (DBGSR_DLINE_ENTSIZE2 

+ ,TEXTPTRCOJ/ZUPVAL + 1); 
NEWDLECDBG$B_DLINE_REND] = .DLEPTREDBGS$B_DLINE_REND : 
NEWDLECDBGS$V_DLINE_SOURCEFLG] = TRUE; 
NEWDLECOBGS$W_DLINE_FILEID] = -DLEPTREDBGSW_DLINE_FILEIDI; 
NEWDLECDBGSL_DLINE_RECNUM] = .DLEPTRCDBGS$L-DLINE_RECNUMJ; 
NEWDLECDBGS$L-DLINE-LINUM] = .DLEPTRCIDBGSL Bi INE CINUMI; 
CHSMOVE(. TEXTPTREOJ + 1, TEXTPTRCOJ, NEWDCE DBGSA_DLINE_TEXT2]); 


! And for any other kind of display, we allocate a normal Display 
: Line Entry and fill in the Line's text. Note that we include 
; the rendition vector at the end of the text if there is one. 


ELSE 
GIN 
TEXTPTR = DLEPTRCDBGSA_DLINE_TEXTJ; 
IF .DLEPTRCDBG$V_DLINE_RENDFLG) THEN TEXTCNT = 2*.TEXTCNT; 
.TEXTCNT/ZUPVAL + 1); 


L 
NEWDLECDBGS$B8_DLINE_REND] = .DCEPTRCDBG$B_DLINE REND); 
NEWDLECDBGS$V_DLINE_RENDFLG) = .OLEPTRCDBGSV_DLINE_RENDFLG); 
NEWDLECDBGS$B_DLINE_LENGTH] = ,TEXTPTR(O); 


CHSMOVE(. TEXTCNT ¢"1, TEXTPTRLOJ, NEWDLECDBGSA_DLINE_TEXTJ); 


! If this is the first Line in the display's screen window, set 

the window pointer accordingly. 

Lf jDLEPTR EQL .DISPTRCDBGSL_DISP_WINDOW_PTRI 
NEWDISPCDBGSL_DISP_WINDOW_PTR] = .NEWDLE; 

! Link the new Display Line Entry into the Display Line Entry List 

} for the new display. Also increment the display’s line count. 
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DBGSCREEN 16-Sep-1984 02:30: AX-11 Bliss-32 v4.0-74 Page 70 
v04= 19-3007 138% 95:70:24 {oeBUG. SRC DBGSCREEN.B32;1 9° 45) 
60 0C A6 00 001 VL_ 12¢DLEPTR), (RO) ; 
50 10 OA 10 ¢1 19, ADDL3 #16, NEWDLE, RO + 1822 
: 10 ag pO 10F MOVL 16(BLEPTR), (RO) : 
A 00113 MOVZBL (TEXTPTR), RO + 1823 
0 D6 118 INCL. R : 
7E 10 AE 14 ( 11 ADDL3 #20, NEWDLE, -(SP) : 
44 11 00110 BRB 10$ : 
57 OC Ad GE OO1IF 8S MOVAB 12(DLEPTR), TEXTPTR + 1833 
58 67 OA 1 3 MOV7BL (TEXTPTR), TEXTCNT + 1P%%4 
03 01 A2 €9 00126 BLBC ~—=-'1(R2), 9$ + 1355 
58 0 C4 0012A MULL2 #2, TEXTCNT : 
50 +) 4 ¢7 0120 9$ DIVL3 #4. TEXTCNT, RO + 1836 
06 AO 9F 00131 PUSHAB 4(RO) : 
000000006 00 1 FB 0134 CALLS #1, DBGSGET_MEMORY : 
10 AE 0 dO 00138 MOVL Rd. NEWDLE F 
50 10 AE 08 C1 0013F ADDL3 #8. NEWDLE, RO + 1837 
60 62 90 00144 MOVB. (R2), (RO) ; 
50 10 AE 09 ¢1 00147 ADDL3 #9, NEWDLE, RO + 1838 
60 01 00 01 A2 FO 0014C INSV. 1(R2), #0, #1, (ROD : 
50 10 AE OA C1 0015¢ ADDL3 #10, NEWDLE, RO + 1839 
60 67 90 0015 MOVE (TEXTPTR), (RO) : 
50 01 AB 9E 0015A MOV 1(RB), RO + 1840 
7E 10 A ¢ cI 00156 ADDL3 #12, NEWDLE, -(SP) F 
9E 6 0 28 00163 108: MOVCS RO, (TEXTPTR), a(SP)+ : 
28 «AB 56 01 00167 CMPL DLEPTR, 40(DISPTR) + 1848 
05 12 00168 BNEQ 118 : 
AA 10 AE dO 0016p MOVL NEWDLE, 40(NEWDISP) + 1850 
04 AE 24 AA 00 001 é 11$: MOVL 36(NEWDISP), DL_BLINK + 1856 
08 AE 04 BE 00 bO17 MOVL @DL_BLINK, OL_FCINK 3 1857 
10 BE 08 AE 00 0017C MOVL DL_FLINK, @NEQDLE ; 1858 
50 10. AE 04 Ci 00181 ADDL3 #47 NEW : 1859 
60 04 AE 00 00186 MOVL.  DL.BLINK, (RO) ; 
50 08 AE 04 C1 OO1BA ADDL3 #47 DL_FLINK, RO + 1860 
60 10 AE DO 0018F MOV NEWDLE; (RO) ; 
046 BE 10 AE DO 00193 MOVL NEWDLE @DL_BLINK : 1861 
1E AA B86 00198 INCW  30(NEWDISP) + 186 
56 66 00 00198 MOVL (DLEPTR}. DLEPTR + 186 
FFIB 31 QO19E BRW 6$ : 180 
gc AE 00000000° cf E OO1Al 128: MOVAB DBGSSCR_DISPLA List, DIS_FLINK : 187 
50 co oe 4 C1 iy ADDL #4. DIS FLINK, R : 187 
6E 60 00 1AE MOVL (RO), OTS_BLI ; 
6A Oc AE 00 00181 MOVL  DIS_FLINK> (NEWDISP) > 187 
04 AA 6€ DO 00185 MOVL. DIS"BLINK, 4(NEWDISP) : 187 
50 OC A 4 C1 00189 ADDL3 #4,~DIS_FLINK, RO : 1879 
6 A 00 001BE VL = NEWDISPT (RO) : 
00 BE A pO 001C1 VL NEWD ISP @D1S_BLINK : 1880 
50 14 AE 08 ci 001¢5 ADDL3 #8, NOUN_NODE™ RO : 1886 
14 AE 60 0 OOICA OvL (RO), NOON_NODE ; 
FE4S 31 OOICE BRw 1$ : 1736 
& 00101 RET : 1895 
0000 00102 138: - WORD foxes nothing : 1706 
50 8 «OA 00 0104 MOVL (AP), RO : 
50 4 A p 0108 VL &(RO); RO ; 
FC =6AO OF 0010C PUSHAB HANDLER_DISPTR ; 
1 DD 0010F PUSHL #l : 
—E DD iE} PUSHL SP ; 
7E 04 AC 7D 001E3 MOV. 4(AP), =(SP) : 
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GLOBAL ROUTINE DBGSSCR_EXECUTE_SCROLL_CMD(VERB_NODE): NOVALUE = 
i FUNCTION 


This routine executes the SCROLL command. It accepts the address of 
the verb node for the command as input and be ae Lye ope —— 
Perererers and executes the command. Most eal work of scrol- 

ing the specified display is gctually dene" by OSGSSCR. SCROLL “DISPLAY 
which is called from this routine. 


! INPUTS 


VERB_NODE = A pointer to the verb er for fhe SCROLL command to be 
executed. The verb node, al ong with its attached noun node, 
coon all lntoraat ion picked up during the parsing of the 
command, 


i OUTPUTS 
i NONE 


BEGIN 


P 
VERB_NODE: REF DBGSVERB_NODE; 


Pointer to input verb node 


LOCAL 
AMOUNT Amount to scroll yg tte» AY; display 
DIRECT TION Direction to scroll the display 


DISPID: OnE DBG$DISP_ENTRY, 


Pointer to Screen Display Entr 
NOUN_NODE: REF DBGSNOUN_NODE; 


Pointer to Noun Node wit Display 1D 


! Get the scrolling direction and amount and the Display ID of the display 
to be scrolled. These all come from the Noun Node. 


NOUN NODE = een sat Pong on +r PTR); 
DISPID = OON 


DIRECTION “y UNOUN NODECDB gs NOUN VAUE2): 
AMOUNT = .NOUN  NOBECDBGSE _NOON_VACUE 


' Now scroll the selected display in the desired direction and in the 
i desired amount. Then return. 

BBGSSCR_SCROLL_DISPLAY(.DISPID, -DIRECTION, .AMOUNT); 

RETURN; 


END; 


0004 00000 -ENTRY ppessce OBE AO. SCROLL_CMD, Save R2 
50 8 AC 00 0000 MOVL ER 
50 8 Ad 00 000 MOVE (R * ODE 
52 60 00 0000A MOVL (NOUN, *NODE) NDISPID 


Page 72 
’ (16) 


esta 
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33 bytes, 


0000v CF 
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Sep-19be 3:17:48 — Edeaue.sacibe 


12(NOUN_NODE), DI 
16(NOUN-NODE), AMOU 
AMOUNT ~ 


DIRECTION 
#3. 0B DBGSSCR_SCROLL_DISPLAY 
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is 1308 : GLOBAL ROUTINE DBGSSCR_EXECUTE_SELECT_CMD(VERB_NODE): NOVALUE = 

8 9 | 1 ! FUNCTION 

1850 1947 1! This routine executes the SELECT command. It accepts the address of 
is 1 13e8 1} a verb node for the command as input, extracts the command parameters 
1 § 1949 1! from that node, and executes the semantics of the command. The seman- 
18 1950 1! tics is to set the sppropr iete own variables (DBGSSCR_CURDISP_xxx) ang 
18 1951 1! _—- variables (DBGSGL_SCREEN_xxx) to point to the Selected display's 
1835 1326 1! creen Display Entry. 

ts 1955 1! 

183 1954 1! INPUTS 

Ht 1332 & VERB_NODE =- A pointer to the verb node for the SELECT command to be 
1839 19 $ 7 executed. The verb node along with its attached noun node 
1840 1957 1! contains all information picked up during the parsing of 
1841 1958 1! the command. 

Hak 1959 1! 

184 1960 1 ! OUTPUTS 

1844 1961 1! NONE 

1845 Mb ¢ 

1846 19635 1 

1847 1964 : BEGIN 

1848 1965 

1849 1966 MAP 

1339 Hb £4 VERB_NODE: REF DBGSVERB_NODE; ! Pointer to input Verb Node 

1936 1969 OCAL 

185 1970 DISPID: REF DBGSDISP_ENTRY, ! Pointer to Screen Bi spt ey Entry 
1854 1971 NOUN NODE: REF DBGSNOUN NODE, ! Pointer to Noun Node with parse info 
1855 1978 SELECT_BITS: BITVECTOR(32); ' Selection bits for different kinds 
1856 197 

1857 1974 

1858 1975 

1859 1976 ' Get the selection kind bits (for history, input, output, scroll, or 
1369 + 144 2 } source) and the Display ID of the selected display from the Noun Node. 
1868 1979 3 NOUN_NODE = .VERB sythiages VERB_OBJECT PTRI; 

186 1980 SELECT_BITS = .NOON_NODECDBGSL_NOON VA : 

1864 1981 2 DISPID™= .NOUN_NODECDBGS$L_NOUN~VALUE2); 

1865 Mb 

1866 198 

1867 1984 ' Select a new nistery output display. Only displays of the NORMAL kind 
1868 1985 ' are allowed to be history displays. 

1869 1986 : 

1870 1987 IF .SELECT_BITSCO) 

1871 1988 THEN 

1376 1989 BEGIN 

187 1990 If .DISPID NEQ 0 

1874 1991 THEN 

1875 1994 4 BEGIN 

1376 bad, ? IF .DISPIDCDBG$B_DISP_KIND] NEQ DBG$K_DISP_NORMAL 

1878 1995 4 SIGNAL (DBGS$_INVSELDIS, 1, DISPIDCDBGSA_DISP_NAME)); 

1879 128 4 

1880 199 END; 

1881 1998 

H+ 1999 DBGSGL_SCREEN_HISTORY = .DISPID; 

188 2000 2 END; 


DS 
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1884 001 
ibee 8 ! Select a@ new command input display. Only displays of kind NORMAL or DO 
18eS Boe are allowed to be input displays. 
1889 006 if .SELECT_BITSC1) 
1899 $08 THEN GIN 
189 009 IF .DISPID NEQ 0 
ee at Sa 

F (.DISPID[DBG$B_DISP_KIND] NEQ DBGSK_DISP_NORMAL) AND 
1896 8 : ' (. DISPIDLDBGSB_DISP_KIND] NEQ DBGS$K_DISP_DO) 
1898 618 4 SIGNAL (DBGS_INVSELDIS, 1, DISPIDCDBG$A_DISP_NAME)); 

1 4 
eR 2 
190 019 DBGSSCR_CURDISP_INPUT = .DISPID; 
F .DISPID EQL 0 THEN DBGS$GL_SCREEN_INPUT = 0; 

1308 $030 if -DBGSGL_SCREEN_MODE THEN BBGSGL_SCREEN_INPUT = .DISPID; 
1905 $0 ¢ END; 
es 
1908 2095 ! Select a new command output display. Only displays of kinds NORMAL or DO 
1909 soe are allowed to be output displays. 
1919 2008 if .SELECT_BITSC2) 
191 44 THEN 
1918 $8 0 BEGIN 
1914 031 ; IF .DISPID NEQ 0 
1916 $038 4 THEN Gin 

F (.DISPIDCDBG$B_DISP_KIND] NEQ DBGSK_DISP_NORMAL) AND 
1918 $b3¢ : ' (.DISPIDCDBGSB_DISP_KIND] NEQ DBGSK_DISP_DO) 
1920 $039 ¢ SIGNAL (DBGS$_INVSELDIS, 1, DISPIDCDBGSA_DISP_NAME]); 

038 4 
an se 
1924 041 DBGSSCR_CURDISP_OUTPUT = .DISPID; 
-DISPID EQL 0 THEN DBG$GL_SCREEN_OUTPUT = 0; 
1995 be§ tf DBGSGL. SCREEN. MODE THEN BBGSGL_SCREEN_OUTPUT = .DISPID; 
1927 044 END; 
i ne 
19 3 047 ! Select a new default scrolling display for the SCROLL command. Any kind 
1931 pee } of display can be scrolled. 
1933 950 if, SELECT_BITSC33 
1936 O2¢ DBGSSCR_CURDISP_SCROLL = .DISPID; 
1936 
1937 054 k : 
: rce output display. Only displays with SOURCE content 

1930 036 : vet | FB hy ot be eplected as source output displays. 
1940 05 ‘ 
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5 1941 058 If .SELECT_BITS(4) 
; 1948 5 THEN 
: 194 060 BEGIN 
: 1944 061 IF .DISPID NEQ 0 
3 1945 06¢ THEN 
is 1946 063 & BEGIN 
3 Igor 06% ‘ IF .DISPIDCDBG$B_DISP_KIND] NEQ DBGSK_DISP_SOURCE 
; 1963 066 4 SIGNAL (DBG$_INVSELDIS, 1, DISPIDCOBGS$A_DISP_NAME)); 
: 1951 068 END: 
: 1988 096 DBG$SCR_CURDISP_SOURCE = .DISPID; 
> 1954 071 IF .DISPID EQL 0 THEN DBG$GL_SCREEN SOURCE = 0; 
: 1955 ore IF .DBGSGL_SCREEN_MODE THEN BBGS$GL_SCREEN_SOURCE = .DISPID; 
: 1956 075 2 : 
We BES 
3; 1959 076 ! The command processing is completed. Now return. 
> 1960 2077 2 i 
: 1961 2078 : RETURN; 
3 1308 2079 
: 196 2080 1 END; 
| 
j 
| 007¢C 00000 ENTRY DBGSSCR_EXECUTE_SELECT_CMD, Save R2,R3,R4,- ; 1944 
| 56 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R6 : 
55 99000000" EF 9€ 00009 MOVAB DBG$SCR_CURDISP_INPUT, RS : 
| 54 00000000" EF 9 00010 MOVAB DBGS$GL_SCREEN_MODE, R4 : 
| 50 04 AC DO 00017 MOVL §VERB_NODE, RO : 1979 
50 08 ad 00 00018 MOVL 8(ROJ, NOUN_NODE ; 
53 60 DO 0001F MOVL (NOUN_NODE); SELECT_BITS + 1980 
52 0c AQ DO 00022 MOVL _12(NOON_NODE), DISPTD : 1981. 
1A 53 £9 00026 BLBC  SELECT_BITS, 3s : 1987. 
14 13 00029 BEQL. «6:18 : 1990 
01 08 A2 91 00028 CMPB =s-« B(DISPID), #1 > 1993 
OF 13 0002F BEQL 1$ : 
4C A2 9F 00031 PUSHAB 76(DISPID) : 1995 
1 DD 000 PUSHL #1 ; 
Q0028A9A BF DD 99 PUSHL #166554 : 
66 3 FB C CALLS #3, LIBSSIGNAL F 
FAG DO OO03F 1$: MOVL piSPiD. DBGS$GL SCREEN HISTORY + 1999 
28 53 01 Fl 43 2$: BBC #i, SELECT_BITS, 5 : 2006 
1A 13 0004 BEQL $ : 2009 
01 08 A2 91 00049 CMPB (DISPID), #1 : 2012 
14 13 0004D BEQL $ : 
02 08 A2 91 0004F CMPB (DISPID), #2 > 2013 
of 13 000 H BEQL $ 3 
4C Ad 9F 000 PUSHAB 76(DISPID) > 2015 
1 Do 8 PUSHL #1 : 
gg OO0PENOK BPR ERTS HNP FS sso : 
43 3 8 $8 3$ MOVL  DISPID, DBGSSCR_CURDISP_INPUT > 2019 


m1 
DBGSCREEN 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 77 
MBE 000 19-808-1 382 96: i$: eh DEBUG.SR Ni Sbeaechcén.os5:1 9° 47) 
03 1 BNEQ 46s 4$ : 2020 
FB OG he ye CLAL DBGSGL_SCREEN_ INPUT : 
04 4 €9 00068 4$: BLBC DBGSGL “SCREEN MODE, 5$ + 2021 
FB OAG D0 $ MOVL DISPID» DBGSGC SCREEN. INPUT : 
2E 53 £1 5$: BBC #2, SELECT_BITS, 8 : 208 
#4 98 6007 {sit pi Sib toe 
01 08 A2 34 7A CMPB SCpIsPip), rh + 2034 
4 3 0 i BEQL 6 : 
02 08 A2 91 000 CMPB (DISPID), #2 + 2035 
OF 13 000 BEQL : 
46C Ad 9F 000 PUSHAB 76(DISPID) + 2037 
4 DD 000 PUSHL we : 
00028A9A 8F DD 00088 PUSHL 6554 ; 
66 03 F 0091 CALLS A watt SIGNA ; 
04 AS : DO 00094 6$ MOVL isPiD, DBGSSCR. CURDISP_OUTPUT + 2061 
03 1 90098 BNEO $ + 2042 
08 Ae D& OOO9A CLRL  DBGSGL_SCREEN_ gurput : 
04 64 E9 0009D 7$: BLBC  DBGSGL-SCREEN“MODE, 8$ + 2063 
08 A4 é dO 900A0 MOVL DISPID- DBGSGC SCREEN. ouTPUT ; 
04 53 03 £1 OOOA4 8S: BBC SELECT BITS, : 2050 
08 Ad 52 DO 0008 MOVL 01gP PID, DBGSSCR.CURDISP_SCROLL + 205 
28 53 04 €1 OOOAC 9S: BBC #4, SELECT_BITS; 12$ + 205 
52 05 00080 TSTL = DISPID : 2061 
14 13 000B2 BEQL $ ; 
03 08 A2 91 000B4 CMPB ss B(DISPID), #3 : 2064 
O£ 13 00088 BEQL 10$ : 
4C Ad 9F OOOBA PUSHAB 76(DISPID) : 2066 
01 OD 000BD PUSHL #1 : 
00028A9A BF DD O00BF PUSHL #166554 : 
66 03 FB 000C5 CALLS #3, LIBSSIGN : 
oc AS ‘ 00 00C8 10$:  MOVL  ODISPID, DRESSER. CURDISP_ SOURCE : 2070 
03 12 000CC BNEQ 118 : 2071 
0c As D4 000CE CLRL  DBGSGL_SCREEN - SOURCE F 
04 64 £9 00001 118:  BLBC DBGSGLSCREEN“MODE, 12$ : 2072 
OC AG 52 DO 00004 MOVL  DISPID> DBG$GC_SCREEN_SOURCE : | 
04 000D8 12$: RET : 2080. 
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19-808= 1382 95: 70:44 DEBUG. SRC IDBGSCREEN.B3 31 . (18) 
GLOBAL ROUTINE DBGSSCR_EXECUTE_SETTERM_CMD(VERB_NODE): NOVALUE = 


' FUNCTION 
: This routine executes the SET TERMINAL command. The only information 
: the SET TERMINAL command can impart at present is the terminal width 

: via the /WIDTH:n qualifier. This routine thus picks up the new termi- 
: nal width, stores it in the global variable DBGSSRC_TERM_WIDTH, and 

: invalidates all screen display Lines current ty on the screen to force 
‘ those Lines to be rewritten ysing the new Line width. No attempt is 

¢ made to reset the terminal with through | escape sequence, however. 
: The global variable DBGSSRC_TERM_WIDTH controls the folding of all 
print and source Lines and fhe tfuncation of screen display output. 
' 

i 

1 

i 

i 

$ 


INPUTS 
VERB_NODE = A pointer to the Verb Node for the SET TERMINAL command 
to be executed. This Verb Node and the attached Noun Node 
contain all information picked up during the parsing of 
the command. 


OUTPUTS 
NON 
BEGIN 
MAP 
VERB_NODE: REF DBGSVERB_NODE; ! Pointer to input Verb Node 
LOCAL 
NOUN_NODE: REF DBGSNOUN_NODE; ! Pointer to input Noun Node 


' Extract the new terminal with from the input Noun Node. If we are in 
' Screen Mode, we also invalidate the current screen contents so the 
screen gets refreshed. We then return. 

DE = .VERB_NODECDBG$L_VERB_OBJECT PTR); 


NOUN_NO 
DBGSSRC_TERM_WIDTA = .NOUN_NODECDBGSL_NOON_VALUEJ; 
LF PoOSGL SCREEN_MODE 


BRR I FROM 0 TO DBGSK_PASTE_SIZE = 1 DO 
OLD_VALIDC.1] = FACSE; 
, END; 
RETURN; 
END; 


=P ANEUPNIPYIPYIPIPIPIPYRININIPIPINIPPINAY at tt st st st kt kt dt tt ot 


0000 00000 sENTRY DBGSSCR_EXECUTE_SETTERM_CMD, Save nothing ; 308 
38 0% AC 00 00002 MOVL yens NODE, 3 eli? 
0 8 AO 00 00006 MOVL 8(ROT, NOUN_NODE ; 


— 


2 

DBGSCREEN 16-Sep-1984 02:30:2 AX-11 Bliss-32 V4.0-74 p 79 
7b e 605 enseen lobe $5i89ic5 «| Ma. Oke Seacecuceg ogo. og 18) 
000000006 00 60 D OOA MOVL (NOUN_NODE), DBGSSRC_TERM_WIDTH . : 2118 
8° 00000000° ft e9 a BLBC DBGSGL_SCREEN_MODE » et. : HH 
00 00000000° Ff 5 E3 OO1A 1$: BCC I, OLD.VALID, eS ) : 138 

4 0 14 F 900¢2 ¢8: AOBLEQ #20, I> 1$ ; 
04 00026 3$: T + 2129 


|; Routine Size: 39 bytes, Routine Base: DBGSCODE + 1368 
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Be O08 14- =300 71382 05: 70:24 DEBUG. SRC RCIDBGSCREEN.B32; 31 ° 188 

; a : 9 ! GLOBAL ROUTINE DBGSSCR_EXECUTE_SETWIND_CMD(VERB_NODE): NOVALUE = 

$ O17 1 ¢ 1 ! FUNCTION 

; 2018 1 1! This routine executes the SET WINDOW command. It accepts the address 
; 2019 134 1! of the Verb Node for the command as input and then extracts the command 
3; 2020 i ie parameters and executes the command. The command parameters consist of 
: O3¢ } 7 : } a@ window mame and a window specification, all encoded in a Noun Node. 

; 20 4 138 1 =! INPUTS 

3; 2024 139 1! VERB_NODE = A pointer to the Verb Node for the SET WINDOW command to be 
3; 2025 140 1! executed. The Verb Node along with its attached Noun Node 

3 os6 141 1! contains all Lcevnen ian picked up during the parsing of the 
; 20 106 a command. 

; 2028 143 1! 

3 ak 144 1 ! OUTPUTS 

3; 2050 145 1! NONE 

3; 2031 146 1! 

3; 2032 147 1 

3: 2033 2148 2 BEGIN 

3 2034 2149 § 

3; 2035 2150 P 

; 2036 2151 2 VERB_NODE: REF DBGS$VERB_NODE; ! Pointer to input Verb Node 

3 2037 $128 § 

; 2038 15 LOCAL 

3; 2039 2154 2 CBEG, ! Beginning column location of window 
; 2040 2155 § CLEN ' Column Length (width) of window 

3 2041 2156 COL_ INF NFO, ' Encoded column parameters 

: song gi2z 2 NAMEPTRe REF VECTORC,BYTE), ' Pointer to ASCIC window name 

3; 204 158 2 NOUN_NODE: REF DBGSNOUN NODE, ' Pointer to current Noun Node 

3 2044 2159 2 eer Se ' poatenteg row location of window 

; 2045 2160 2 ' Row Length (height) of window 

; 2046 2161 2 ROW. INFO: ! Encoded row parameters 

3: 2047 $166 2 

3; 2048 2165 2 

3 2049 $10¢ 2 

3 see 192 2 ! : Extract all the window parameters from the Noun Node. 

3 $026 167 $ hOUN NODE = . VERB_NODECDBGS$L vERS oe cT _PTRI; 

: 205 168 NAMEPTR = .NOUN NODET DBGSL NOUN 

> 2054 169 ROW_INFO = .NOUN_NODECDBGSC NNOURY VALUES; 

3; 2055 170 RBEG = *ROU" INF O20. >: 

3; 2056 $17) RLEN = .ROW_INFO<W 

: 2057 1% COL_INFO = [NOUN shopetoacsi _NOUN_VALUE3); 

; 2058 $17 CBEG = .COL_INFO<WO 

3 2059 174 CLEN = .COLINFO<w1_ “i 

3; 2060 175 

3; 2061 fa 

3 ‘44 17 ! Now allocate and build a Screen Window Entry for the new screen window. 
$ a7 178 Then return. 

3; 2065 180 DBGSSCR_CREATE_WINDOW( .NAMEPTR, -RBEG, .RLEN, .CBEG, .CLEN); 

3; 2066 181 RETURN; 

3; 2067 196 

; 2068 183 «#1 END; 
| 
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| 001 00 9 ENTRY DBGSSCR ane ab SETWIND_CMD, Save R2,R3,R4 ; 3130 
0 4 AC D MOVL VERB .N + 2167 
0 8 AO D : MOVL (R “a UN_NODE 3 
4 60 D OA MOVL (NOUN. NODED NAMEPTR + 2168 
1 OC OA p D MOVL 12(NOON_N®>E), ROW_INFO : 169 
3 51 3¢ 00011 MOVZWL ROW. INE FO, xBE : 2170 
52 51 10 10 EF 00014 XT2V #165 #16, ROW_INFO, RLEN + 2171 
50 10 a0 bo 0019 OVL  16(NOUN_NODE)> COL_INFO : 3172 
51 50 3¢ 0001D MOVZWL COL INFO, CBEG : 217 
50 50 10 19 EF 90 9 XT2V #167 #16, COL_INFO, CLEN : 317 
> DD 000 PUSHL  CLEN + 2180 
1 DD 00027 PUSHL (BEG ; 
26 DD 00029 PUSHL RLEN : 
53 DD 00028 PUSHL RBEG ; 
54 DD 00020 PUSHL NAMEPTR : 
F713 05 FB 0002F CALLS #5, DBGSSCR_CREATE_wINDOW : 
04 00034 RET + 2183 
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GLOBAL ROUTINE DBGSSCR_EXECUTE SHODISP_CMD(VERB_NODE): NOVALUE = 
FUNCTION 


ee ee en eee ee 
CONAULSWN OO 


oO 
~ 
o 


SSMS ARGN=SSBUSAP UNOS 


PIPIPIPI ANIA PO PIDINIPINMNINIPINNID) 9 SS SS 


PRIPDPOPIPIPPDNININPINININPINIPIPIPIPINPIPIPINININININININININININININIDS 2 2 9 9 OS SS SS 


ed ed aed ad sd CD 


Ourwun— 


Be Se Oe Oe Oe Be Oe Be Se Se Be Se Se Ge Se Se Ge Ge Be Fe Se Se Se Ge FH Se Se Se Se oe SH Se SF Os Se SH Ss Se Se Se Se Ge Ge Oe Ge Se SH Se Oe Se Oe Se Ge Se See ee 
RIPIPIPIPIPIPINDPIPINIPINININIPINININPINPIPINININIPNNYNY 
PIPIPIPIMIPIPGPDNNININININININYNPIPYPINYPO NINN NINIPIPYNININYNINIPIPIPYINIPIPOPUPPIPUPINPIPIPONONoPoNoNonononony 


Ronononongenons — a OO 


Morororory 


This routine executes the SHOW DISPLAY command. It accepts the 
address of the verb node for the command as input and then executes 
the command. Since there are no command parameters, the Verb Node 

is oc jue; ty ignored. The command processing consists of going through 
all displays on the Screen Display List and Listing out the name and 
attributes of each such display. 


NPUTS 
VERB_NODE = A pointer to the Verb Node for the SHOW DISPLAY command to 
e executed. The Verb Node is actually ignored. 


! OUTPUTS 
NONE 
BEGIN 
LOCAL 
DISPTR: REF DBGSDISP_ENTRY, ' Pointer to current Display Entry 
WPTR: REF DBGSWINDOW_ENTRY; ! Pointer to a Screen Window Entry 


! If the Screen Display List is empty, print a message to that effect and 
return immediately 


If ,PBGSSCR_DISPLAY_LISTCOJ EQL DBGSSCR_DISPLAY_LIST 


BEGIN 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘no displays defincd'), 0); 
+ $ otal 


! Loop through all displays in the Screen Display List and print out the 
name and attributes of each such display. 


DISPTR = .DBGSSCR_DISPLAY_LISTCO); 
WHILE  -DISPTR NEQ"DBGSSCR-DISPLAY_LIST DO 


Start by printing out the current display's name. 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘display 'AC'), DISPTRCDBG$SA_DISP_NAME}); 


! Next print out the window name. Here we search the Screen Window 

! List to see if there is a screen window with the same window param- 
! eters as those of the current display. If so, we print out that 
window's name, 


WPTR = .DBGSSCR_WINDOW_LISTLO); 
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WHILE. .WPTR NEQ DBGSSCR.WINDOWLIST DO 
IF (.WPTRCDBGSW_WINDOW_RBEG] EQL .DISPTR(DBG$W_DISP_RBEG]) AND 
(WPTREDBGSW-WINDOW-RLEN) EQL .DISPTREDBGSW-DISP~RLENJ) AND 
(.WPTREDBGSW-WINDOW-CBEG) EQL .DISPTREDBGS$W-DISP~CBEG)) AND 
c(i: WPTR DBG$W-WINDOW-CLEN) EQL .DISPTREDBGSW~DISP~CLENJ) 


DBGEPRINTCUPLIT BYTE(ZASCIC * at !AC'), WPTRCDBGSA_WINDOW_NAME)); 
EXITLOOP; 
END; 


WPTR = ,WPTRCDBGSL_WINDOW_FLINK); 


If no window with the same window parameters could be found, print 
out the window parameters as a string of numbers, This situation 
normally only occurs if the user cancelled the window definition 
which was used to define the original display position. 


ee ee ee ee ee 


if .WPTR NEQ 0 
HEN 
! €€eeeeecce TEMPORARY weeeeseonacoe 
IF gDBGSGL_DEVELOPERC7] THEN, BEGIN Le RR Tel EMBORARY ~n-nnnn=mmne 
DBGSPRINT(OPLIT BYTE(ZASCIC ° at 
-DISPTREDBG$W_DISP BEG), -DISPIREDBGSU. bISP -RLEN] 
.DISPTRCDBGSW_DISP— CBEGI, -DISPTR DBCS. DISPe CLENJ); 
DBGSPRINT(UPLIT BYTE CRASCIC * at 'SL)* poe Bi amie ow 
‘aa .DISPTRCDBGSW_DISP_ ReEG ; te tceeny bi RB ro 
END; oe nema TEMPORARY we wee we oe 


! Print out the maximum size of the display in Lines. 
DBGSPRINT(UPLIT Ore CeARC IC *, size = 'SL' 
.DISPTRCDBGSW_DISP_MAX Cingentd); 

Print out the values of the removed and mark-changes flags if set. 
if .DISPTRCDBG$V_DISP_REMOVE) 

DBGSPRINT(UPLIT BYTE(ZASCIC °, removed"), 0); 
c gDESPTRCDOGSY_DISP_MARKFLG) 

DBGSPRINT(UPLIT BYTE(ZASCIC *, mark changes’), 0); 
er iet ot the display’s kind and the associated DEBUG command List 
‘ any). 
' 
CASE .DISPTRCDBG$SB_DISP_KIND] FROM DBGSK_DISP_MINKIND 
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TO DBGSK_DISP_MAXKIND OF 
SET . 3 


: Handle the Paes 1 kind. Here there is no DEBUG command List so 
; we just print “kind = NORMAL” on the same Line. 


{DBG$K_D1ISP_NORMAL]: 
DBCSPRINT CUPL IT BYTE(ZASCIC *, kind = NORMAL"), 0); 


' Handle the DO bing. Here we print out the DO command List. 
} The command List is printed on a separate line. 


CDBG$K_DISP_DO): 
BEGIN 


L 
CMDPTR: REF VECTORC,WORD); 

CROPTR 5 = gDisPTR DBG$L_O1SP_CMOLIST); 

ore hu BYTECRASC ic ° kind = DO (!AD)"), 

i PTR . CADP TRE 1)); 


' Handle the SOURCE kind. Here we print out the SOURCE command 
' List if there is one. The command List is always printed on 
: @ separate Line. 


(DBGSK DISP_SOURCE]: 
IF .DISPTRCDBG$L_DISP_CMDLIST] EQL 0 
DBGSPRINT(UPLIT BYTE(ZASCIC ', kind = SOURCE"), 0) 


ELSE 
estny 


ATMDP TR: REF VECTORC ,WORD); 
A a ait DBGSL _O1SP_ CMDLISTI; 
one ah BYTEC(ZASCIC ' kind = SOURCE (!AD)"), 
CMDPTRE . CMDPTR(1)); 


END; 


' Handle the REGISTER display kind. Simply print the kind on the 
i same Line. 
toacsk DISP_REG H itt 

DBGSPRI arto T BYTECZASCIC *, kind = REGISTER"), 0); 


Any other value is an internal DEBUG error. 
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: 2241 5 CINRANGE, OUTRANGE): 

i 96 6 $DBG_ERROR( "DBGSCREEN\EXECUTE_SHODISP_CMD"); 

: 2264 TES; 

sa 

3 ¢3 e Flush out this print Line and loop for the next display. 
5 2249 $8 DBGSNEWL INE (); 

; 20 6% DISPTR = .DISPTRCDBGSL_DISP_FLINK); 

3 53 4] END; ! End of loop over Display List 
5 2256 6 

: 2? e We are all done. Return to the caller. 

; 37 4 RETURN; 

; s 59 ae END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


65 64 20 73 79 61 6C 70 73 69 64 20 6F 6E€ 13 OO3FF P.AFB: .ASCII <19>\no displays defined\ 3 
64 $3 6—E 69 66 Ope ok 3 
43 41 21 20 79 61 C€ 70 73 69 64 ae Boe} P.AFC: .ASCII Sie Nest ent oy 'AC\ $ 
$3 41 1 20 74 61 $8 0 O41F P.AFD: .ASCII <7>\ at !AC 8 
oi a) a) a a 1 8 ¢9 74 gt 0 3 00427 P.AFE: .ASCII <21>\ at (!SL.'SL,!SL.!SL)N 3 
9 4C 4 C 4€C 53 004 F 
29 4C 53 1 a2 1 8 20 74 61 0 OD 00430 P.AFF: .ASCII <13>\ at (!SL,!SL)N : 
4c 53 21 0 3 $2 65 7A 69 73 $0 coo et P.AFG: .ASCII <12>\, size = 'SL\ 3 
64 65 76 6F D 65 72 20 2C O09 00458 P.AFH: .ASCII <9>\, removed\ g 
73 65 67 6E 61 68 63 4 68 72 61 6D $8 C OE Dade P.AFI: .ASCII <14>\, mark changes\ 3 
41 4D 52 4F 4E 20 3D 2C 64 6E 69 68 20 C OF bc 80 P.AFJ: .ASCII <15>\, kind = NORMAL\ : 
20 4F 44 20 3D 20 64 6E 69 68 $3 29 29 31 is et P.AFK: .ASCII <19>\ kind = DO (!AD)\ 
43 52 55 4F 53 20 30 20 64 6€ 69 68 20 2C oF Ree? P.AFL ASCII <15>\, kind = SOURCE\ ; 
55 4F 53 20 3D 20 64 6E& 69 68 30 30 20 20 17 O04A5 P.AFM: . ASCII <23>\ kind = SOURCE (!'AD)\ : 
9 44 41 21 28 43 43 32 004B4 , ; 
53 49 47 45 52 20 30 20 64 6E€ 69 68 g es ui zeae P.AFN: .ASCII <17>\, kind = REGISTER\ : 
43 45 28 45 5C 4&4 45 45 52 43 23 47 4 44 19 O4CF P.AFO: .ASCII <29>\DBGSCREEN\<92>\EXECUTE_SHODISP_CM\ : 
40 43 SF 50 53 49 46 GF 48 53 SF 45 54 5 04DE : 
44 O004EC eASCII \DN : 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 

0O1FC 00000 ENTRY pyessce oh ‘aetna ta Save R2,R3.R4.-; 2184 
R5,R6,R7,R ; 
8 900000006 00 9£ 90002 MOVAB DBGSNEWLINE, RB 
0 F 9E MOVAB  DBGS$SCR DISBLAY LIST, R? : 
6 G 00 9€ 00010 MOVAB ODBGSPRIAT, R : 
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36 00000000" 
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56 
50 
at 
14 
58k 
54 10 
50 08 
50 
64 08 
02 AG OA 
14 = A2 0c 
16 = A2 OE 
10 
20 
66 
53 
000000006 
7E 16 
7E 14 
7E 02 
7E 
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66 
7E 02 
7€ 
3€ 
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E 1¢ 
4C 
66 
08 OA 
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4 02:30: AX-11 Bliss-32 V4.0-74 
Be 95:70:24 DEBUG. SRC IDBGSCREEN.B3 31 
MOVAB P.AFB, RS 
MOVAB DBGSSCR_DISPLAY_LIST, R0 
CMPL DBGSSCR_DISPLAY_LIST, R 
BNEQ =‘ 
CLRL 30s = (SP) 
PUSHL 5 
CALLS #2, DBGSPRINT 
CALLS #0, DBGSNEWL INE 
MOVL  DBGSSCR_DISPLAY_LIST, DISPTR 
MOV DBGSSCR-DISPLAY-LIST, RO 
CMPL ISPTR, RO 
BNEO 
RET 
PUSHAB 76(DISPTR) 
PUSHAB P.AFC 
CALLS #2, DBGSPRINT 
MOVL DBGSSCR_WINDOW_LIST, WPTR 
MOV 16(DISPTR), 
MOVAB DBGSSCR_WINDOW_LIST, RO 
CMPL WPTR, RO 
BEQL 
CMP (WPTR), (R4) 
BNEQ 
CMPW 3s TO(WPTR), 2(R4) 
BNEQ 
CMPW =s-« $2 (WPTR), 20(DISPTR) 
BNEQ 5$ 
CMPW 3 =s«W4(WPTR), 22(DISPTR) 
BNEQ 5$ 
PUSHAB 16(WPTR) 
PUSHAB P 
CALLS #2, DBGSPRINT 
CLAL = wPTR 
BRB 6 
MOVL  (WPTR), WPTR 
BRB 4$ 
TSTL WPTR 
BEQL = «BS 
TST DBGSGL_DEVELOPER 
BGE $ 
MOVZWL 22(DISPTR), -(SP) 
MOVZWL 2O(DISPTR), -(SP) 
MOVZ2WL 2(R4), =(SP) 
MOVZWL (R4), =(SP) 
PUSHAB PAF 
CALLS #5, DBGSPRINT 
MOVZ2WL 2(R4), =(SP) 
MOV2WL (R4), =(SP) 
PUSHAB P.AF 
CALLS a DBGSPRINT 
MOVZ2WL 2B(DISPTR), -(SP) 
PUSHAB P.AFG 
CALLS #3 DBGSPRINT 
LBC 1O(DISPTR), 98 
CLRL 3s = (SP) 
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335 bytes, Routine Base: DBGSCODE + 1444 


3; Routine Size: 


K 2 

GSCREEN 16-Sep-1984 02:30: AX-11 Bliss-32 V4.0-74 Pa 8 
vos 1e-38b-198e 93:79:23 + ¥okeuc. Bae Sbececheew.o$s. 1 oe 9 
3 6} Me } GLOBAL ROUTINE DBGSSCR_EXECUTE_SHOSEL_CMD(VERB_NODE): NOVALUE = 
3 ri 76 1 ! FUNCTION 
>; 2264 (a 3 This routine executes the SHOW SELECT command. It accepts the address 
3; 2265 78 1! of the Verb Nude for the command as input and then executes the command. 
3 $1 79 1! As there are no command oarameters, the Verb Node is actually ignored. 
: 226 » 24 The command simply prints out the display selections for the current 
; 28 1 : } output display, the current scrolling display, and so on. 
3; 2270 88 1 ! INPUTS 
3: 2271 4 1! VERB_NODE = A pointer to the Verb Node for the SHOW SELECT command to 
; Lf +H } } be executed. The Verb Node is actually ignored. 
H 74 89 1 ! OUTPUTS 
3; 2275 88 1! NONE 
3; 2e7 89 1! 
3: 2e7 390 1 
3; 2278 4 BEGIN 
; 2279 3 
; 2280 Hd B 
: $e Soe NONE_STRING = UPLIT BYTE(ZASCIC ‘none'); 
; $585 96 LOCAL 
; 2284 97 DISPTR: REF DBGSDISP_ENTRY, ! Pointer to selected Display Entry 
; 2986 $08 NAMEPTR: REF VECTORC,BYTE); ! Pointer to display name string 
3 oR 400 
; 2288 401 : 
3 $$09 788 If screen mode is not set, say so before giving SELECT settings. 
3; 2291 2404 IF NOT .DBGSGL_SCREEN_MODE 
3 344 2405 THEN 
3: 229 2406 BEGIN / 
3 2294 ve DBGSPRINT{UPLIT BYTE(ZASCIC ‘screen mode not set’), 0); 
; $$32 408 DBGSNEWLINE(); 
3; 2296 vets END; 
3: 2297 410 
3; 2298 411 
3 344 tig Print the header text. 
3; 2301 414 DBGSPRINT(UPLIT BYTE(ZASCIC ‘display selections:'), 0); 
; $08 415 DBGSNEWLINE(); 
3; 250 416 
: $oe 417 
3 5 “ig Print out the history SELECT setting. 
: 09 420 If .DBGSGL_SCREEN_HISTORY NEQ 0 
3; 2308 " 1 THEN 1 
; 10 4 5 DISPTR = .DBGS$GL pcoeen HISTORY; 
3 2311 424 NAEPTR = REDBG$A_BISP_NAME); 
; 318 425 DBGSPRINT(UPLIT BYTE(ZASCIC™* — history= !AC’), .NAMEPTR); 
: $1 4 § DBGSNEWLINE(); 
: 14 4 END; 
3 2315 428 
; 218 429 , 
3; 231 430 ! Print out the input SELECT setting. 
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if .DBGSSCR_CURDISP_INPUT NEQ 0 
THEN 

DI 

DBC aati 


} Print out the output SELECT setting. 
D1sPrR = «NONE STRING. = OUTPUT; 


NAMEPT 

IF SO ISP TR NEGQ"O THEN NAMEPTR = DISPTRCDBGSA_D1SP_NAME]; 
DBGSPRINT CUPLIT BYTE(ZASCIC ' output = 'AC'), TNAMEPTR); 
DBGSNEWL INE () 


} Print out the scrolling SELECT setting. 

bISPTR = ,DBGSSCR rhea SCROLL; 

WAREPTR NON E. 

IF .DISPTR NEQ O TH HEN "NAMEPTR = eserre sects DISP NAME]; 
DGSPRINT CUPLIT BYTE(ZASCIC ' scroll = !AC'), TNAMEPTR); 
DBGSNEWL INE () 

Print out the source SELECT setting. 

DISPTR. = =" NONE St CURDISP SOURCE; 


NAMEPTR I 
IF .DISPTR N THEN NAMEPTR = DISPTRCDBGSA DISP_NAME}; 
busier iNT CuPLT BYTE(ZASCIC ° source = 'AC'), [NAMEPTR); 


DBGSNEWL INE () 


ALL done--now return. 


RETURN; 
END; 
-PSECT DBGSPLIT,NOWRT, 
20 6E 65 §2 y 6 rs % bet? Pra, ASC LI nts onl mode not set\ 
4 23 20 74 . ‘ 
79 61 6C 70 5 69 64 3 6 P.AFR: .ASCII <19>\display selections:\ 
73 69 68 30 : 55 29 if 6 1h P.AFS: .ASCII <16>\ 
70 6€ 69 20 20 20 29 io 35 P.AFT: .ASCII] <16>\ 


input = !AC"), .NAMEPTR); 


<o 
ow 


sins 


2) 
2) 
2) 


20 30 20 74 75 70 74 75 6F 
72 +63 
20 30 20 65 63 72 75 OF 


20 3D 20 6C 6C 6F 


VW WOO 
MW oOOu 


VINO O 


rWOuw 


73 20 20 20 
73 20 20 20 


1 
1 
20 20 20 20 10 te! 
45 4) 4B 
at It ies 
9 10 O38 
43 41 00560 
OOFC 00000 
494445449 Fr 9E 0000 
00000006 00 9E 0000 
49454 4 47 00 9E Boo 
00000000° EF 43 001 
00000000° EF E dh 
E 04 00 
05 A& 9F 00027 
oe FB OO02A 
! FB 0002D 
E 04 000 
19 A& 9F 000 
02 FB 000 
00 F it 3 
00000000" EF D0 000 : 
is 13 0004 
50 00 00044 
4C A3 9E 00047 
52 0D Benes 
2D =A& YF 00040 
02 FB Benes 
00 FB Bape 
67 00 0056 
12 13 00059 
50 00 00058 
4C AS 9 Fes 
52 0D 0006 
3E AS YF 00064 
8 FB 00067 
ao EB ie 
1 Se 
3D 074 
4 1 16 
4C AS 9E ? 
5 bp 7¢ 
4F AG OOF iM 
8 FB 
S 
08 A 3 7 
- 
af Se 
4C AS 9E 0009 


“$e0-1986 02:30:21 


P.AFU: ASCII 
P.AFV: .ASCII 
P.AFW: .ASCII 


NONE _STRING= 


«PSECT 
-ENTRY 


— 
ww 
° 
= 
2 
- 


23: MOVL 


AX-11 Bliss-32 oh ah 
DEBUG. SRC JDBGSCREEN.B32;1 


<16>\ output = !AC\ 

<16>\ scroil = !AC\ 

<16>\ source = !AC\ 
P.AFP 


DBGSCODE,NOWRT, SHR, PIC,0 


pgcsscr. EXECUTE SHOSEL_CMD, Save R2,R3,R4,- 


Pe IY CURDISP. INPUT, R7 
DBGSNEWC IN 
DBGSP Rin “is 

NONE _$ 

DBGSEL SCREEN. RAODE, 1$ 


og DBGSPRINT 
i} DBGSNEWL INE 


P.A 
#3, TTBGSPRINT 
DBGSNEWL INE 

DBéser oSCREEN. HISTORY, RO 
metas NAMEPTR 

NAMEPTR 

P.AFS 
We, DBGSPRINT 
#0. DBGSNEWL INE 
BGSSCR_CURDISP_INPUT, RO 
RO BISPTR 

76(R3), NAMEPTR 
NAME PTR 

a5 0 DBGSPRINT 

paestee (und Sp OUTPUT, DISPTR 

STR ING, NAMEPT 


La bap NAMEPTR 


PA nity 
ae, DBGSPRINT 
DBGSNEWL INE 
oBgs $SCR CORDISE SCROLL, DISPTR 
NONE STRING, NAMEPTR 


6(R3), NAMEPTR 


2374 


-—_— ee. 


——- ri ce 
voe=000 | 1eoSep-i9be $SiiP:4s — UDgauG.SACSBGScHEEN.050:1 


52 0D 5$ PUSHL NAMEPTR 
60 AG OF bones pusnia PAA 
65 0 FB 00098 COC; CALLS as.  SBGSPRINT 
6 FB 09 CALLS BGSNEWL INE 
oc A p OA MOVL DBESScR CURDISP SOURCE, DISPTR 
2 4 OAS MOVAB STRING, NAREPT 
3 05 0008 TSTL 
. AA BEQL 
52 4C a3 9— OOOAC MOVAB 76(R3), NAMEPTR 
52 DD 000B0 6$: PUSHL NAMEPTR 
71 AG 9F 0008 PUSHAB W 
65 02 FB 0008 CALLS 2, DBGSPRINT 
66 FB 000B8 CALLS #0, DBGSNEWLINE 
04 00088 RET 


; Routine Size: 188 bytes, Routine Base: DBGSCODE + 1593 


— 


DBGSCREEN tg -1984 02:30:2 AX-11 Bliss-32 V4.0-74 Page 92 
v04-000 14- set 95:70:28 DEBUG. Bh CJDBGSCREEN.B32;1 ’ (22) 
: 66 ofe : GLOBAL ROUTINE DBGSSCR_EXECUTE_SHOWIND_CMD(VERB_NODE): NOVALUE = 

: 2364 ore 1 ! FUNCTION 

; 65 477 1! This routine executes the SHOW WINDOW command. It accepts the address 

3 43 rhs: : } of the Verb Node for the command as input and executes the command. 

; 2568 480 1 ! INPUTS 

; 69 481 1! VERB_NODE = A pointer to the Verb Node for the SHOW WINDOW command to 

; 2370 a 1! be executed. 

: 2371 ste +! 

BSE 1 | cures, 
£832 stb 1 i 

; 2375 487 1 

; 2376 488 2 BEGIN 

3 $322 489 2 

3; 2378 2490 2 LOCAL 

; 2379 2491 2 WPTR: REF DBGSWINDOW_ENTRY; ! Pointer to current Window Entry 

3; 2380 $138 2 

: 2381 493 2 

; 2382 2494 2 

: 2383 2495 2 ! If the Screen Window List is empty, print a message to that effect and 

: tee: $498 § return immediately. 

; att 2498 2 IF .DBGSSCR_WINDOW_LISTCO] EQL DBGSSCR_WINDOW_LIST 

3: 2387 499 ¢ THEN 

; 2388 500 GIN 

3; 2389 2501 3 DBGSPRINT(UPLIT BYTE(ZASCIC ‘no windows defined’), 0); 

3; 2390 2502 3 DBGSNEWLINE(); 

3: 2391 e503 3 RETURN; 

3 2392 2504 § END; 

3; 2393 2505 

3 2394 2506 2 

3; 2395 2507 2 ! Loop through all Window Entries on the Screen Window List and print out 

s $309 $208 § the name and window parameters of each such screen window. 

; 2398 2510 2 WPTR = .DBGSSCR WINDOW LISTCO]; 

: 2399 2511 § WHILE .WPTR NEQ DBG$SCR -WINDOW_LIST DO 

3; 2400 $2i¢ BEGIN 

3; 2401 2513 3 

3; 2402 2514 3 q 

: seb: $212 ; Print out the current window's name and window parameters. 

3 2405 seif 3 DBGSPRINT (UPL IT ELOPERLE THEN, “‘Eetee ‘AC’ te EPTRCOBGSA WINDOW_NAME]); 

: 2406 518 4 . DBG$G PERC } THEN Ceceeococe > ven MPORARY --------- 
3 Seba 2519 & DBGSPRINTCOPL | f BYTE(ZASCIC ° 

> 24608 320 4 -WPTR DBG$W_WINDOW “REG " Cis LS “uihbow “ft 

: 2409 521 4 “WPTRCDBGSW-WINDOW-CBEG], .WPTR DBGSu- “WINDOW-CLEN Fe 

: 2410 266 4 END ELSE BEG Ni ececeeoce “TEM EMPORARY e---e-<<-- 
7 2411 5 4 cepesieneah T BYTECZASCIC * at CISL ist) i <<eeeee 
> 2612 524 4 PTRCDBG$W_WINDOW_RBEG), .WPTR baci _WINDOW_RLEN)); i KK nen 
2 2413 5 5 3 END; eeceecesceca “TEMPOR ARY eeeeceeca 
: 2614 526 

3 2415 527 : ; 

: 218 : S Flush out this print Line and loop for the next Window Entry. 

; 2418 530 DBGSNEWLINE(); 
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66 65 64 20 73 77 


43 
oe oe) oe ye 
29 4C 53 21 2 
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WPTR = 
END; 


ALL windows have been shown. 


RETURN; 
END; 
64 6€ 69 77 20 6F 6E 12 
64 65 oF 69 
20 77 6F 64 6E 69 77 OA 
53 21 28 20 74 61 20 15 
~~ & SS BF 2. ot. $3 
53 21 28 20 74 61 20 OD 
007C 
56 00000000G 00 9E 
55 028000000" EF 9E 
54 00000000G 00 9E 
53 00000000' EF 9E 
50 65 9€ 
50 65 01 
0B 12 
43 04 
53 0D 
64 02 FB 
66 00 FB 
04 
52 65 00 
50 65 9E 
50 52 Dil 
3F 613 
10 Ag oF 
13 AS) OF 
64 02 fe 
000000006 00 9 
18 18 
7E —E A C 
7E C = COA C 
7E A A C 
7E 8 «OA C 
1E OA F 
64 0 fo 
+) 1 
7E OA A2 3C 


.WPTRCDBGS$L_WINDOW_FLINK]; 


:21 
743 DEBUG. 


AX-11 8 33 32 
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' End of Loop over Window List 


Now return. 
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»PSECT 
ASCII 


«ASCII 
ASCII 


ASCII 


DBGSPLIT,NOWRT, SHR, PIC,0 
<18>\no windows defined\ 


<10>\window !AC\ 
<21>\ at CISL,!SL,!SL,!SL)\ 


<13>\ at ('SL,!SL)N 


DBGSCODE,NOWRT, SHR, PIC,0 


Pa 93 
9° 23) 


ppcsscn. EXECUTE _SHOWIND_CMD, Save R2,R3,R4,-; 2474 


DBGSNEWLINE, R6 
DBGSSCR WINDOW LIST, R5 
west INT, 


DaGSSER WINDOW_LI 
DBGS$SCR_WINDOW_LI 


-(SP) 
3 


R 
#2, DBGSPRINT 
#0, DBGSNEWL INE 


DBGSSCR_WINDOW_L 
PoSSSCh WINDOW LL 


ST, RO 
ST, RO 
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Séseor SOEVELOPER 
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GLOBAL ROUTINE DBGSSCR_GENERATE _SCREEN(DISPID): NOVALUE = 


FUNCTION 
This routine is called when all automatically updated screen displays 
are to have their contents regenerated. It _ also be gos ‘eg to 
automatically regenerate the contents of a single specified dt splay. 
e 


roe ft 


| 


= 
oO 


The way in which a on 2 contents is gener oted depends ont 
or 


oat et et et et et et ee 
COOONOUS WN — 


i 
i 
i 
! 
: display kind, but for a D SOURCE display it it accomplished by 
: adding the display'’s DEBUG command list to the Command Input Stream 
: in such @ way that the output from that command list is redirected 
‘et to the desired display. 
44 ' INPUTS 
244 . DISPID = If a single wit) is to have its contents automatically 
2444 : regenerated, DISPID is the Display ID (Screen Display Entry 
2445 ! pointer) of that display. If all automatically updated 
seee } displays are to be regenerated, DISPTR is zero. 
448 ' OUTPUTS 
2449 ! NONE 
450 : 
451 
245 BEGIN 
45 
454 LOCAL 
455 BPTR: REF VECTORC,WORD) Pointer to new command List buffer 


FLINK: REF DBGSDLINE_ENTRY, 
DISPTR: REF DBGSDISP-ENTRY, 
DLEPTR: REF DBGSDLINE_ENTRY, 


KIND, 
TPTR: REF VECTORC,WORDJ; 


Pointer to next Error Line Entry 
Pointer to current Screen Display Entry 
Pointer to Error Display Line Entry 

The kind of the current wt 

Pointer to DEBUG command List buffer 


' Set up a pointer to the first Screen Display Entry whose contents are to 
: be regenerated. Note that we go through the displays in reverse order 

! since their DEBUG command Lists will be stacked on the Command Input 
Stream and will be executed in Last-In First-Out (LIFO) order. 

DISPTR = .DISPID; 

IF .DISPTR EQL 0 THEN DISPTR = .DBGSSCR_DISPLAY_LIST(1); 


: Now loop for all displays on the Screen Display List to be updated. 
WHILE .DISPTR NEQ DBGSSCR_DISPLAY_LIST DO 
BEGIN 
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479 90 ' If the current display has an Error Line Entry List, throw away all 
480 91 ! error Display Line Entries on that List. (These errors apply to the 
me ¢ 38 : old display contents, not to the new contents we will generate.) 

48 94 DLEPTR = .DISPTRCDBGSL_DISP_ERROR_PTR); 

484 95 DISPTRCDBGSL DA penn PIRI = 0; 

485 96 WHILE .DLEPTR NEQ™O DO 

486 9 BEGIN 
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-DLEPTRODBGSL_DLINE_FLINK]; 
torre F creaileed 


:21 AX-11 Bliss-32 V4.0-74 Pa 96 
743 DEBUG. ERCTDBGSCKEEN. B35; 1 9° 23) 


.DISPTRCDBGSL hes TRI Os" PTR); 
C BOS D1 bist" a ie TRT_ 


= ,DLEPTRCDBGSL_DLINE_FLINKI; 
EL JHEMORY .DLEPTRD; 
= 


oFLINK; 


Case on the kind of the current displa ey Update the contents of only 
those displays that can be automatically updated. Note that we pre- 
vent the automatic updating of removed displays by changing KIND. 


KIND = tatoacsve01s DISP_KIND); 
F F DISPTRLDBG$V_DISP REMOVE J THEN KIND = DBG$K_DISP_NOKIND; 
ASE se FROM BBGSK_DISP_MINKIND TO DBGSK_DISP_MAXRIND OF 


Handle displays with DO command Lists. Here we add the display's 
DO command List to the Command Input Stream with output redirected 
to this ad bg = ae spots that we save the current output and source 
displays in the C p ontry so that print and source output can be 
directed back to ane displays by POBGSNCIS REMOVE at the end of 
the command List processing. 


[DBGS$K_DISP_DOJ: 
BEGIN 


PRev ec eseseseccase 


If changed Lines are marked for this Gisplay, nore the old 
text of the display to the old-text list. The old-text List 
is made into a siaptya\ nace. zero-terminated List. The 
new display contents are then cleared to zero Lines. 


F .DISPTRCDBG$V_DISP_MARKFLG] AND 
(i DISPTR DBGSQ_DISP_LINECNT] NEQ 0) 
BEGIN 
DISPTRCDBGSL_DISP_OLDTXT_ PTR) = 
-DISPTRCDBGSL_DISP_START_LINE_PTRI; 
DLEPTR = =DISPTREDBGEL DISP_END. LINE_PTRI; 
DLEPTACOBOSL OL LIAK) = 
DISPTREDBGSL~ -DISPe TART LINE PTR) = 
DISPTRCDEGSL =DISP_ START_LINE_PTR); 
DISPTRCDBG$L_DISP_END_LINE PTR 
DISPTROIDBGSL “DISP_ START_LINE_PTR); 


——_———_— 


Page 7 
3 30: “11 Bliss~32 V4.0=742° (23) 
1fsen- 19 3:79:23 — EbeeuG. SacSbecscneen.e59; 1 
| DBGSCREEN 
VOe T) = 0; 
G$W_DISP_LINECN 

$e SSIES LiEaLaeey ye + 0 
: $363 4 TDIESTSCROLL] =O; 
3 os bsrintbecby=bise-iwwsthd = fue 
> 256 $5 END 
26 get ntents. 
: 661 ‘ f its present co 
: $31 $68 : Otherwise, simply empty the display o 
; 25 
° 4 P 
; 33 665 : re SE aGSSCR_EMPTY_DISPLAY(.DISPTR); 
; 2555 Pi d it to the Command 
; 33 oe 4 of the DEBUG command List, ad ent display. 
: $37 oes d Inout Strose, and redirect output to the pres 
> 2559 6 P_CMDLIST); 
s $260 $3 d ig. . BDSSGET REMOR CL TPR 0 $5) /2UPVAL) ; 
; 2561 673 4 B SMOVE(.TPTRCO) + 2, TPTRLO 4 $k_CIS_SCREEN, 0, 0. 0) 
: $266 7% 4 an D<BPTRC}). -BPTRCOL, DBGSK Cis SCREEN, 0. OO): 
: 58¢2 675 DBCSGLCTSHEAD C1S$L_SCREEN_OUf PUT . :DBGSGL SCREEN: SOURCE; 
* Séee ere 4 DeGSEL CI SHEADE CI SSL_ SCREEN. SOURCEJ | DBGSGL SCREEN. ERROR; 
: $266 676 4 BCSCL C1 SHEADECI S80 -SCREEN"NOGON = -DBGSGL_ 
: $568 oe BESGL-SCREEN_OUTPUYs gDISPTR: 
: 5369 680 4 DBGSGLSCREEN SOURCE = 0: 
: $370 ee DBGSGL-SCREEN-ERROR = DISPTR; 
; 2571 oe é DBGSGL-SCREEN-NOGO = TRUE; 
; 37@ END; 
: $37 683 5 SOURCE display 
° 685 d lists. (If the : : 
Bg Bed ent Natta cited Pet Tite She tet Set 
; has to the Comman he current outpu 
: 2577 688 i DEBUG command List to -_ Note that we save t 
: a 689 ! redirected to sae inte CIS entry so that oy A ge 
: 9579 691 ! and gee Se Sittreed back to those +4 ae y ° 
. ! ™ 
: 381 $69 i ot the end of the command List proces 
; 258 , 
: 5888 O38 CDBGSK DISP_SOURCE): : 
i 58a8 696 & TPTR = .DISPTRCDBGSL_DISP_CHDLIST2; 
> 2586 638 2 IF .TPTR NEQ 0 
3 2587 Q THEN ea 
; 2588 $ BEGIN ¥C(, TPTREOI#5) /2UPVAL) ; 
: 3 701 CHBROVEC TPTRLOY. © 8, TBPTRCOS, DBGSK-CiS. SCREEN, 0, 0, 0); 
i $350 703 DBGaNEISADDLGPIRC 1S; PTR outeots =-"DaGSoL scaeEsOUrPut; 
° 1) - 2 DBGSGL e ° 

59 703 5 DBGSGL_CISHEA CIS$U7SCREENSOUR ‘ \ SCREEN ERROR: 
; 704 DBGS$GL~CISHEAD - N7ERROR)] = .DBGSGL 
g im SHG “HALE SER SER» BOERS SCR age 
: 70 DBGSGL-SCREEN_OUTPUT"= .DBGSSCR . 
; ¢5 - NISOURCE = .DISPTR; 
: $33 709 § Decsct-SeneEN-enmon =” O15 TR 
: 2599 My 3 DBGSGL-SCREEN-NOGO = TRUE; 
: 600 711 
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H 3 
16-Sep-1984 02:30: AX-11 Bliss-32 V4.0-74 Pa 8 
12280871382 95:79:24 DEBUG. SRCIOBGSCREEN. 039; 1 9 335 
ay; 4 END; 
714 ND; 
He z 
HS ! Handle REGISTER displays. Here we regenerate the display text 
At } using the current register values. 
720 CDBGSK_DISP_REGISTER): 
f : REGISTER_DISPLAY(.DISPTR, DBGSRUNFRAMECDBGSL_USER_REGS)); 
7 
724 ! Any other display kind cannot be regenerated, so we do nothing. 
f 5 } Note that we get here for any removed displays as well. 
7 $ CINRANGE, OUTRANGE): 
f : 0; 
730 TES; 
, 1 
7 : ! Loop for the next display unless only a single display was to be 
f ¢ regenerated. Note that we loop in reverse order as mentioned above. 
736 IF .DISPID NEQ 0 THEN EXITLOOP; 
, i DISPTR = .DISPTRCDBG$L_DISP_BLINKI; 
S44 END; ! End of loop over displays 
741 
rg ALL requested displays have been regenerated. Now return. 
grad RETURN; 
2746 «(1 END; 
OFFC 00000 ENTRY DBGSSCR_GENERATE SCREEN, Save R2,R3,R4,R5.- ; 2541 
6,R7,RB,R9,R10,R11 3 
56 04 aC 00 00002 MOVL  DISPIB, BISPTR : 2580 
07 12 000 BNEQ 1$ : 2581 
26 S44 44 8 EF 00 000 MOVL DBGSSCR_DISPLAY_LIST+#4, DISPIR 3 
0 00000000' gf 9E OOOOF 1$: MOVAB BGSSCR_DISPLAY_LIST, RO : 2586 
50 6 01 00016 CMPL DISPTR, RO 3 
01 12 00019 BNEQ es 3 
04 00018 RET 3 
57 2C =6A6 00 BR 23 MOVL 44(DISPTR), DLEPTR 3 2594 
2c ag D4 000 CLRL 44(DISPTR) : 2595 
57 D5 00025 3$ TSTL pLePia 3: 2596 
110641 88 BEQL 4 3 
SA 67 D MOVL (DLEPTR), FLINK 3 $398 
57 0D 88 r PUSHL DLEPTR ; 2599 
000000006 99 9 F 5 ¢ CALLS #1, DBGSREL_MEMORY 3 
A pO 000 VE —s FLENK, DLEPTR ; 2600 
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DEBUG. SRC JDBGSCREEN.B32;1 


ISPTR) ay 
IS $ 


DISPTRS, 


SSCR_EMPTY_DISPLAY 
TR), TPTR 


~“YOD OMVFYMNMNYN=4N YO KH KE 


> UO 


-(SP) 
; DBGSGET_MEMORY 
(TPTR), RO 
RO, (TPTR), (BPTR) 


DS WWW Oa re ee ees |S OO COD 
oO 2 oo 


#8, =(SP) 
(BPTR), =(SP) 


(BPTR 
#6, DBGSNCIS_ADD 
DBGSGL_CISHEAD, RO 

DBGSGL SCREEN OUTPUT, 36(RO) 


D ‘ 0) 
DBGSOL “SCREEN NOGO, #2, #1, 18¢RO) 
DISPTR> DBGSGC_SCREEN_OUTPUT 
DGSGL “SCREEN, SOURCE 
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; Routine Size: 415 bytes, Routine Base: DBGSCODE + 16C(B 


3 
GSCREEN tbs Sep- :3 AX-11 Bliss-32 74 Page 1 
V 14-Sep- 198 96: #9: a DEBUG. SRCJDBGSC orgs: 9° 23) 
59 48 OA 10¢ 128:  MOVL $72(DISPTR), TPTR : 2697 ; 
af i 19 BEQ 38 : 2698 ; 
? 1 MOVZWL (TPTR), RO + 2701 : 
C6 0011 ADDL : : ; 
7E 4 ¢ 11 DIVLS #4, RO, (SP) : ; 
000000006 1 Fe 11 CALLS i. DBGSGET MEMORY : : 
§ 1 6 MOV IWL (TPTR), RO + 2702 : 
5 ; 1 ADDL g. ; : 
68 6 1 MOVES RO. (TPTR), (BPTR) : ; 
C 001 CLRO. 0 = §p : 2703 ; 
7E 08 7D 001 v0 #8, =(SP) : ; 
7E 68 3¢ 001 MOVZWL (BPTR), =(SP) : ; 
02 AB 9F 001 PUSHAB 2(BPTRS : : 
000000006 90 06 FB 1 CALLS #6, DBGSNCIS Aro : : 
00000006 p 14 MOVL  DBGSGL_ cis EAD + 2704 : 
24 a0 9990000" EF 7D 0014 MOVO BGSGL~SCREEN_ bur TPUT, 36(RO) : ; 
€ a0 00000000" EF pO 00151 VL DBGSGL“SCREEN ERROR, 44(RO) : 27 : 
12 a0 01 02 00000000" EF FO 00159 INSV BG$GL~SCREEN-NOG #2. #1, 18(RO) : 270 : 
00000000" EF 00000000° EF D0 00163 MOVL DBGESCR CURDISP GUfPUT; = + 2708 : 
0000000" EF 56 D0 00166 MOVL DISPTR> D EScC SC SCREEN_SOURCE + 2709 ; 
0000000" EF 56 D0 0175 13$: MOVL DISPTR DBGS$GL SCREEN ERROR + 2710 : 
00000000" EF 4 D ore MOVL DBGSGL_SCREEN_NOGO + 2711 : 
D 11 00183 14$: BRB > 2623. : 
000000006 00 9F 00185 15$:  PUSHAB DBGSRUNFRAME+4 : 2721 F 
6 DD 001 PUSHL 0D : F 
0000v CF 02 FB 0018D CALLS #2, REGISTER_DISPLAY : ; 
04 AC D5 0192 16$: TSTL © DISPID : 2736 : 
07 12 0019 BNEO : | ; 
56 04 Ab 20 0197 MOVL 4 (DISPTR), DISPTR : 3737 ; 
FE71 1 00198 BRw 1$ : 2586. 3 
04 OO19E 17$: _—s RET : 2746 : 


| 
| 
| 
| 
| 
| 
| 
| 
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GSCREEN 1hes2 1984 AX-11 Bliss-32 v4.0-74 Page 101 dB 
ope 1e-8ep-1984 98: 9: 4 DEBUG. SRC ID DBGSCR Neénso$9:1 . (24) vo 
3 o38 rg } GLOBAL ROUTINE DBGSSCR_INITIALIZE: NOVALUE = 
: 26 749 1 § FUNCTION 
3 2640 750 1! This routine initializes the Screen Debugging code. It must be called 
3; 2641 751 1! before ony 0 other Screen Debugging routines are called in order to set 
: org 7 ¢ 1! up or initialize various data structures and locations needed by those 
3 i f Z : other routines. This routine should be called exactly once. 

3; 2645 755 1°! INPUTS 

3 “e 7 § 7s NON 

3: 264 7 & 

3; 2648 7 4 1 ! OUTPUTS 

3: 2649 7 1! NONE 

; 2650 760 1! 

3; 2651 761 +1 

3 O26 166 BEGIN 

3; 265 76 

Be gies 

3; 2656 766 ! Initialize the Screen Display List and the Screen Window List List heads 
3; 2657 767 ! so that they constitute empty Coudly Linked Lists. This is done at run- 
; 228 res : time to keep DEBUG's code position-independent (PIC). : 
3; 2660 770 bBGSSCR _DISPLAY_LIST 1f9 = = pOcescR pisPL AY. Lasts 

3; 2661 771 DBGSSCR_DISPLAY_LIST R_DOl SOLAY “LIST: 

3 666 77 DBGSSCR_WINDOW_CIST tf .: paces Sth IND LIST; 

3: 266 77 DBGSSCR-WINDOW-LISTC1) = DBGSSCR-WINDOW tists 

: Sees re 

3 vr¢] ae : Create the predefined screen window definitions. 

: 2668 778 DBGS$SCR CREATE _WINDOW(UPLIT BYTE(ZASCIC ‘FS*) o WW. to Vets 
5 9 779 DBGSSCR_CREATE_WiNDOW(UPLIT BYTE (ZASCIC “se. oS. 3 ); 
; 2670 780 DBGSSCR_CREATE_WINDOW(UPLIT BYTE(ZASCIC ‘H2"), 11, 9, 1, 132); 
; 2671 781 DBGSSCR_CREATE_WINDOW(UPLIT BYTE(ZASCIC ‘T1'), 1, 6, 1, 132); 
3; 267 7 DBGSSCR_CREATE_WINDOW(UPLIT BYTE (ZASCIC a ee g. 6, 1, 132); 
: 267 78 DBGSSCR_CREATE_WINDOW(UPLIT BYTE(ZASCIC ‘T5°), 15, o Ve Waar 
3 2674 784 DBGSSCR_CREATE_WINDOW(UPLIT BYTE(ZASCIC nite 1, 13. 3. 13233 
3 2675 785 DBGSSCR_CREATE_WINDOW(UPLIT BYTE(ZASCIC ‘'T25°), 8, 12, 1, 132); 
3: 2676 78 DBGSSCR_CREATE_WINDOW(UPLIT BYTE(ZASCIC ‘Q1°), 1, 4, 1, 132); 
3; 2677 78 DBGSSCR_CREATE_WINDOW(UPLIT BYTE (ZASCIC age}? 6, 4, 1, 132); 
3; 2678 788 DBGSSCR_CREATE_WINDOW(UPLIT BYTE(ZASCIC 'Q3°), 11, 4, 1, 132); 
3; 2679 789 DBGSSCR_CREATE_WINDOW(UPLIT BYTE (ZASCIC 04°), 16, 4, 1, 132); 
3; 2680 790 DBGSSCR_CREATE_WINDOW(UPLIT BYTE(ZASCIC 'Q123°), 1, 14, 1, 132); 
3; 2681 791 DBGSSCR_CREATE_WINDOW(UPLIT BYTE C(ZASCIC OS ea, Ge Pas Sa taers 
3: 268 79 DBGSSCR_CREATE_WINDOW(UPLIT BYTE(ZASCIC ‘'Q25'), 6, 9, 1, 132); 
: 268 79 DBGSSCR_CREATE_WINDOW(UPLIT BYTECZASCIC ‘R1'), 1, 5, 1, 132); 
3 2684 794 DBGSSCR_CREATE_WINDOW(UPLIT BYTE (ZASCIC a ee A 2° 1, 132); 
3; 2685 795 DBGSSCR_CREATE_WINDOW(UPLIT BYTE(ZASCIC ‘R35°), 13, o Ve taers 
3; 2686 DBGSSCR_CREATE_WINDOW(UPLIT BYTE(ZASCIC ‘R1 S, aa She Be Saas 
3; 2687 79 DBGSSCR_CREATE_WINDOW(UPLIT BYTE (ZASCIC ae rhs. | Be Ee he Sees 
3; 2688 798 DBGSSCR_CREATE_WINDOW(UPLIT BYTEC(ZASCIC ‘Hi2"), 1, 19, 1, 132); 
3; 2689 799 DBGSSCR_CREATE_WINDOW(UPLIT BYTE (ZASCIC ‘11 3) 1. 19. Ve Vaaers 
3; 2690 DBGSSCR_CREATE_WINDOW(UPLIT BYTE(ZASCIC '01254 kM 19, 1, 132); 
3; 2691 01 DBGSSCR_CREATE_WINDOW(UPLIT BYTE (ZASCIC *Q1 . le Be te 1aeri 
3; 269 ? DBGSSCR_CREATE_WINDOW(UPLIT BYTE(ZASCIC °Q34°), 11, 9, 1, 132); 
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[ 3 

GSCREEN 16 -$ep-1984 02:3 AxX-11 Bliss-32 V4. Page 103 
a" ereer hohe PSiFF:zh | eaNe lS Shige se Nee O- 28s 9° 24) 
OC AG 8 AG YE 00021 v SCR_WINDOW_LIST, DBGSSCR_WINDOW_LIST*+4 ; 2773 
7E ge F 3 6 MOV ZBL mse, -tsP) ~ . " : ae 

1 DD A PUSHL : 

3 DD C PUSHL #9 F 

o1 DD PUSHL : 

¢ 0D PUSHL Re : 

$3 FB CALLS #5, DBGSSCR_CREATE_WINDOW : 
E 84 BF OA MOVZBL #182, -(5SP)~ : 2779 

1 0D 0 9 PUSHL : 

9 DD B PUSHL 4&9 : 

1 0D 00030 PUSHL # : 

03 Ag F 0 F PUSHAB P.AGC : 

63 FB ae CALLS #5, DBGSSCR_CREATE_WINDOW : 
7E 84 BF 9A 0004 MOVZBL #152, -(SP) + 2780 

1 0D 00049 PUSHL : 

9 DD 00048 PUSHL #9 : 

0B OD 00045 PUSHL : 

06 A2 9F OO04F PUSHAB P.AGD : 

63 05 FB 0052 CALLS #5, DBGSSCR_CREATE_WINDOW : 
7E 84 BF 9A 0005 MOVZBL #132, -(SP) + 2781 

01 oD 0059 PUSHL #1 : 

06 DD 00058 PUSHL #6 ; 

1 DD 0005D PUSHL : 

09 Ag 9F O005F PUSHAB P.AGE : 
63 0 FB 0006¢ CALLS #5, DBGSSCR_CREATE_WINDOW : | 
7E 84 BF 9A 0006 MOV2BL #132, -(SP) + 2782 

01 DD 90069 PUSHL #1 ; 

06 OD 00068 PUSHL #6 ; 

08 OD 0006D PUSHL 4&8 : 

0c Ag OF O006F PUSHAB P.AGF : 

63 05 FB 000 é CALLS #5, DBGSSCR_CREATE_WINDOW : 
7E 84 8F 9A 0007 MOVZBL #142, -(SP) : 2783 

01 DD 00079 PUSHL #1 F 

05 DD 00078 PUSHL #5 : 

OF BD 007D PUSHL #15 ; 

OF Ag F 0007F PUSHAB P.AGG : 

63 05 FB 0082 CALLS #5, DBGSSCR_CREATE_WINDOW : 
7E 84 BF 9A 0008 MOVZBL #182, -(SP) + 2784 

4 DD 00089 PUSHL #1 ; 

D DD 00088 PUSHL #13 : 

01 DD 0008D PUSHL : 

12 Ag F Q008F PUSHAB ; 

63 FB 0009 CALLS fA SDBGSSCR. CREATE_WINDOW : 
7E 84 BF OA 909 MOVZBL #82, -(SP)” : 2785 

1 DD PUSHL : 

C 0D 0098 PUSHL +12 : 

D 00090 PUSHL ue : 

16 A2 9F O009F PUSHAB ; 

63 FB Ae CALLS ae OpBGSSCR_ CREATE _WINDOW : 
7E 84 8F 9A OOOA MOVZBL #182, -(SP)” : 2786 

1 DD 000A9 PUSHL ; 

4 DD 000AB PUSHL a F 

1 0D 000AD PUSHL a : 

1A Ag F OOOAF PUSHAB : 

$3 FB 0008 CALLS ase CI RGSSCR _CREATE_WINDOW : 
E 84 BF 9A 000B MOV2BL #182, -(SP)” : 2787 

1 0D 00089 PUSHL #1 ; 


[ 3 
| DBGSCREEN 16- sep “19 AX-11 Bliss-32 V $20" 4 Page 104 
vi ergee~}BRe 9S: fF:2) | POMEL Oh igsede vee0-24s 9° 24) 
04 DOD 00088 PUSHL ; : 
po BD PUSHL a : : 
1D A2 9F O00BF PUSHAB : : 
$3 : FB OO00C CALLS ae “pecsscr_ CREATE_WINDOW ; ; 
E 84 BF 9A 0006 MOV ZBL #182, + 2788 : 
1 0d 000¢ PUSHL ; ; 
4 DD 000CB PUSHL a ; : 
pp OCD PUSHL ait : : 
20 A2 99F OOOCF PUSHAB ; : 
£7 05 FB be CALLS ash sbBGSsCR. CREATE_WINDOW ; : 
7E 84 BF 9A 0000 MOVZBL #182, -(SP)~ t 2789 : 
8} i») ) it PUSHL 3 3 
4 DD 00008 PUSHL ; : 
10 0D 00000 PUSHL rig ; : 
23 Ag F OOODF PUSHAB ; ; 
63 05 FB O0Ee CALLS a oOBGSSCR. CREATE_WINDOW ; ; 
7E 84 er 9A O00E MOV ZBL #182, =(SP)~ + 2790 ; 
1 DD 000E9 PUSHL ; : 
OE DD OO00EB PUSHL a1 : : 
01 DD OO0ED PUSHL a F : 
26 Ag 9F OOODEF PUSHAB F : 
63 05 FB OOF 2 CALLS We SDacsscn_ CREATE_WINDOW : : 
7E 84 8F 9A OOOF MOV ZBL #82, + 2791 ; 
01 OD 00089 PUSHL ; : 
OE DD 000FB PUSHL 414 ; : 
06 DD O00FD PUSHL @# ; : 
28 «A2 «OOF OOOFF PUSHAB P.AGO ; : 
63 0 FB 0192 CALLS #5, DBGSSCR_CREATE_WINDOW : : 
7E 84 8F 9A 0010 MOVZBL #132, =(SP) + 2792 : 
01 0D 90109 PUSHL #1 : : 
09 DD 0010B PUSHL 4&9 ; : 
06 DD 0010D PUSHL #6 ; : 
30 A2 9F OO10F PUSHAB P.AGP : : 
63 05 FB O1ie CALLS #5, DBGSSCR_CREATE_WINDOW ; 3 
7E 84 8F 9A 0011 MOVZBL #132, -(SP) : 2793 : 
01 0d 00119 PUSHL #1 : : 
05 OD atte PUSHL #5 3 3 
01 DD 00110 PUSHL #1 3 3 
34 Ag OF OOT1F PUSHAB P.AGQ ; : 
63 0 FB 001 : CALLS #5, DBGS$SCR_CREATE_WINDOW : ; 
7E 84 8F 9A 001 MOVZBL #132, =(SP) + 279% : 
01 DD 00129 PUSHL #1 : : 
03 DD 00128 PUSHL a3 F : 
7 OD 3 D PUSHL @# 3 3 
37 Ag F OO12F PUSHAB P.AGR F 3 
63 FB 001 é CALLS #5, DBGSSCR_CREATE_WINDOW ; ; 
7E 84 8F 9A 001 MOVZ2BL #152, -(SP) : 2795 : 
| 1 DD 00139 PUSHL #1 ; F 
5 DD 00138 PUSHL #5 ; ; 
D 0013p PUSHL #13 ; : 
3a A2sO9F:s«0013F PUSHAB P.AGS ; : 
$3 FB 0014 CALLS #5, DBGSSCR_CREATE_WINDOW ; 3 
t 84 BF 9A 0014 MOV2BL #182, -(SP) > 279% : 
1 DD 0014 PUSHL #1 : 3 
8 DD 00148 PUSHL #11 ; ; 
| D 00140 PUSHL #1 : 
| 3D A2 9F OO14F PUSHAB P.AGT : F 


i 
| OBGSCREEN 16- ep -1984 AX-11 Bliss-32 V4.0-74 Page 105 
¥Oe2000 14-Sep-1984 95: 39: 3 DEBUG. SRC IDBGSCREEN-B3 31 9° 24) 
| 63 5 FB 001 2 ALLS DBGSSCR_CREATE_WINDOW : 
7E 84 A 3 NOV ZBL AT ey = (SP) + 2797 
D DD 00158 PUSHL #13 : 
| 07 OD 4 D PUSHL #7 § 
| 41 ae OF 0015F PUSHAB P.AGU : 
63 05 FB 0162 CALLS #5, DBG$SCR_CREATE_WINDOW ; 
7E 84 a 9A 0165 NOV ZBL #82, -(SP) : 2798 
of Bb Seg FuE ; 
45 ag OF O16 PUSHAB P.AGV : 
63 0 FB 001 : CALLS #5, DBG$SCR_CREATE_WINDOW : 
7E 84 BF 9A 0017 MOVZBL #132, -(SP) : 2799 
01 DD 00179 PUSHL #1 : 
gf BB Be usatg : 
49 a2 9F OO17F PUSHAB P.AGW : 
63 05 FB 00182 CALLS #5, DBGSSCR_CREATE_WINDOW : 
7E 84 BF 9A 0018 MOVZBL #132, -(SP) + 2800 
01 DD 00189 PUSHL #1 : 
13 DD 00188 PUSHL #19 : 
cc PRP Be : 
63 05 FB 00192 CALLS Wee “Dacsscr. CREATE_WINDOW : 
7E 84 BF 9A 0019 MOVZBL ai 142, > 2801 
01 DD 00199 PUSHL ; 
09 DD 00198 PUSHL 49 : 
54 ) OF ee PUSHAB > Gy : 
63 05 FB 001A2 CALLS #5, DBGSSCR_CREATE_WINDOW : 
7E 84 8F 9A OO1A5 MOVZBL #132, -(SP) : 2802 
01 DD 001A9 PUSHL #1 : 
ge ei : 
58 = A2 «OOF OOTAF PUSHAB P.AGZ : 
63 05 FB 00182 CALLS “, DBGSSCR_CREATE_WINDOW pe 
00 16346 C4 50 £5 00187 1$ BBCC I, OLD_VALID, 2$ : 2810 
F6 50 14 3 O01BD 2$ AOBLEQ #20, I> 1$ : 
04 001C1 RET + 2817 


3; Routine Size: 450 bytes, Routine Base: DBGSCODE + 186A 
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16-Sep-1984 06: 30:41 AX-11 Ol igsnze V4.0°74 
14-Sep-1984 12:17:43 DEBUG. SRC JDBGSCREEN.B32;1 
ROUTINE DBGSSCR_LOOKUP_DISPLAY(NAMEPTR) = 
' FUNCTION 
This routine looks up the Screen Display Entry which corresponds to a 
specified display name, It eccepts a Counted ASCII display name as 
input and returns a pointer to the corresponding Screen Display Entry 
as output. If no display by that name exists, zero is returned. 
This routine accepts several geen: ha names, all of which 
begin with a percent sign. The pseudo-displays accepted are: 
ZCURDISP - The Last display on the Screen Display List. 
(The least occluded display. 
ZNEXTDISP - The first display on the Screen Display List. 
{The most occluded display.) 
ZNEXTSCROLL - The next display on the Screen Display List 
after the current scrolling ag ee 
ZNEXTOUTPUT - The next ey display on the Screen Display 
List after the current output display. 
ZNEXTSOURCE - The next source display on the Screen Display 
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List after the current source display. 


If the input Steeler name is a pseudo-display name, it gets converted 
into a pointer to the Screen Display Entry of the actual display that 
matches the pseudo-display specification. This is done by searching 
the Screen Display List for the best match, always ignoring removed 
displays in the search. 


INPUTS 


NAMEPTR = A pointer to the name of the ye gs to be looked up. The 
name is represented as a Counted ASCII string. 


OUTPUTS 


A pointer to the Screen Display city of the named display is returned 
as the routine value. (This pointer constitutes the display's 
giepley 2) If no display by the specified name exists, zero 
is returned. 


BEGIN 


Pp 
NAMEPTR: REF VECTORL,BYTE); ! Pointer to ASCIC display name 
LOCAL 


DISPNAME: REF VECTORC BYTE), 


Pointer to current display's name 
DISPTR: REF DBGSDISP_ENTRY, 
FIRST_DISP, 


Pointer to current Display Entry 
Pointer to first display Barching 
pseudo-display on display List 
Flag set if we are past current 
seroty inp. etc. display in 
the display List 


PAST_CURRENT; 


ee if the display name begins with a percent sign ‘'2"’, If so, this is a 
pseudo-display'’, meaning that we must search the display list for the 
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Vv 
F 766 or? next display of a certain kind as determined by the pseudo-display name. 
3; 2768 8 if mre raeee fe tn . THEN RETURN 0; 

3; 2769 4 IF .NAMEPTRL1 

; 2770 7 THEN 

3: 2771 880 BEGIN 

3 re 881 

s aur HT 

3 2774 8 ! If the ZCURDISP pseudo-display is requested, we return a pointer to 
: 2775 884 i the Last (the most recent) display on the display List. Note that we 
: 2776 885 i scan the Screen Display List backwards to find the most recent non- 
; rer gee removed display. 

3; 2779 888 IF CHSEQL(.NAMEPTRLOJ, NAMEPTRC1], 8, UPLIT BYTE(ZASCII ‘%CURDISP"), 0) 
; 2780 889 THEN 

3; 2781 890 4 BEGIN 

; sie 891 4 DISPTR = .DBGSSCR_DISPLAY_LIST(1]; 

3 sie B36 4 WHILE .DISPTR NEQ DBGSSCR_DISPLAY_LIST DO 

: 2784 2893 5 BEGIN 

; 2785 2894 5 IF NOT .DISPTRCDBG$V_DISP ett a RETURN .DISPTR; 

: 2786 2895 5 DISPTR = .DISPTRCDBGSL_DISP_B 

; 2787 2896 4 END; 

; 2788 2897 4 

3; 2789 2898 4 RETURN 0; 

; 2790 2899 3 END; 

3: 2791 900 

3 1884 901 

; 279 2902 ! If the ZNEXTDISP pseudo-display is requested, we return a pointer to 
3 2796 2903 3 ! the first display on the display List. This is the ‘'next’’ display 

3 184) 344: ; ; after the last (most recent) diteley on the List. 

3; 2797 906 H IF CHSEQL(.NAMEPTRCOJ, NAMEPTRC1), 9, UPLIT BYTE(ZASCII ‘%NEXTDISP"), 0) 
3; 2798 2907 THEN 

3; 2799 2908 4 BEGIN 

; 2800 2909 4 DISPTR = .DBGSSCR_DISPLAY_LIST(O); 

: 2801 2910 4 WHILE .DISPTR NEQ DBGSSCR_DISPLAY_LIST DO 

3; 2802 2911 5 BEGIN 

3; 2803 $3i§ 5 IF NOT -DISPTRCDBGSV DISP penove? THEN RETURN .DISPTR; 

; 2804 2913 § DISPTR = .DISPTRCOBGSL_DISP_FLINK); 

3; 2805 sole 4 END; 

3; 2806 915 4 

: 2807 916 4 RETURN 0; 

3; 2808 917 END; 

3 sep 4 

: 2810 91 

3; 2811 920 ! If this is the ZNEXTSCROLL pseudo-display, we find the next display 
; aig 38 ! on the eteptay list after the current scrolling display. We make a 
3: 281 9 § ! single scan of the eran er List, picking gr ener the” first display 

3 2814 oa ! after the current scrolling display or, if that does not exist. the 
3 2815 924 ' first otpoter oe on the list. In effect, the search wraps around at the 
; 513 ; 5 ! : end of th st 

3; 2818 9 $ ir CHSEQL(.NAMEPTRCO), NAMEPTR(1), 

3 2819 928 11, UPLIT BYTE(ZASCII *ZNEXTSCROLL"), 0) 

; 330 929 THEN 

3; 2821 930 4 BEGIN 

3; 2822 931 4 FIRST_DISP = 0; 
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PAST_CURRENT = FALSE; 
DISPTR = .DBGSSCR_DISPLAY_LISTCO]; 
WHILE, .BISPTR NEQ”DBGSSCR-DISPLAY_LIST DO 
Huot .DISPTRCDBG$V_DISP_REMOVE] 
BEGIN 
IF .FIRST_DISP EQL 0 THEN FIRST_DISP = .DISPTR; 
if PAST CURRENT THEN RETURN .DTSPTR; 
IF ,DISPTR EQL spacssce CURDISP SCROLL THEN PAST_CURRENT = TRUE; 
DISPTR = .DISPTRCDBGSL_BISP_FLIAKI; 


RETURN .FIRST_DISP; 
END; 


If this is the ZNEXTOUTPUT pseudo-display, we find the next NORMAL 
or DO display on the display List after the current output display. 
We make a eing\e scan of the display List, picking either the first 
appropriate display after the current output display or the first 
appropriate oy on the list. In effect, the search wraps around 
at the end of the List. 


if CHSEQL(.NAMEPTRCO], NAMEPTR(1), 
11, UPLIT BYTE(ZASCII ‘X%NEXTOUTPUT'), 0) 


BEGIN 
FIRST_DISP = 0; 
PAST CURRENT = FALSE; 
DISPTR = .DBGSSCR_DISPLAY_LISTCO); 
WHILE. -DISPTR NEQ-DBGSSCR_DISPLAY_LIST DO 
IF (NOT .DISPTRCDBGS$V_DISP_REMOVE]) AND 
(6 -DISTREDBGSB_DISP _K1RD EQL DBGS$K_DISP_NORMAL) OR 
mee DBG$B-DISP-KIND] EQL DBGS$K-DISP~DO)) 
BEGIN 
IF .FIRST_DISP EQL 0 THEN FIRST_DISP = .DISPTR; 
Jf, -PAS! CURRENT THEN RETURN .DISPTR: 
IF ,DISPTR EQL .DBGS$SCR_CURDISP_OUTPUT THEN PAST_CURRENT = TRUE; 
DISPTR = ,DISPTRCDBGSL_BISP_FLIAKI; 


RETURN .FIRST_DISP; 
END; 


If this is the ZNEXTSOURCE pseudo-display. we find the next SOURCE 
display on the display List after the qurrent source output display. 
We make a single scan of the display List, picking either the firs 
appropriate display after the current output display or the first 
appropriate display on the List. In effect, the search wraps around 


989 
1 990 
¢ 991 
8 336 
884 99 
85 994 
995 
88 99 
888 99 
889 99 
890 99 
34 000 
9§ 001 
89 00 
894 00 
895 004 
24] 005 
BRS 
899 008 
900 009 
901 010 
i 011 
90 oig 
904 01 
905 014 
906 015 
907 016 
908 017 
909 018 
910 019 
11 ost 
at 021 
91 0 ¢ 
914 0 
915 024 
BS 
918 0 ; 
919 028 
920 029 
1 030 
; ; 031 
Bk 
925 te 
9 $ 035 
9 B36 
8 0 
929 0 $ 
9 0 
931 040 
9 § 041 
9 be§ 
934 04 
935 044 
936 045 
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at the end of the List. 


if CHSEQL(.NAMEPTRCOJ, NAMEPTR(1), 
11, UPLIT BYTE(ZASCII "SNEXTSOURCE'), 0) 


LSE; 

_DISPLAY_LISTCO]; 

DBGSSCR_DISPLAY_LIST DO 
D 


T 

P 

P_REMOVE]) AND 

NB) EQL DBGS$K_DISP_SOURCE) 


1S 
“DIS 
1S 
Kl 
FIRST_DISP = .DISPTR; 
URN .DISPTR; 


SCR_CURDISP_ SOURCE THEN PAST_CURRENT = TRUE; 
$L_BISP_FLINK); 


RETURN .FIRST_DISP; 
END; 


! If we got any other pseudo-display name, we return zero to indicate 
; that mo such display exists. 


RETURN 0; 

END; ! End of Zpseudo-display code 
The display name is a normal name and does not begin with a percent sign. 
Loop through all the Display Entries in the Screen Otel oy List until a 
Display Entry with the desired name is found. When and if such a display 
is found, return a pointer to that Display Entry. 


ISPTR = .DBGSSCR_DISPLAY_LIST(OJ; 
HILE .DISPTR NEQ~DBGSSCR-DISPLAY.LIST DO 


GIN 
DISPNAME = prac sarnesa DISP_NAME]); 
IF CHSEQL(.NAMEPTRLO), RAMEPTRC1J, .DISPNAMECO], DISPNAME(1), 0) 


RETURN .DISPTR; 


St = .DISPTRCDBGSL_DISP_FLINK); 


There is no display by the specified name. Return zero. 
RETURN 0; 
END; 
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-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


53 49 44 55 43 60D P.AHA: .ASCII \SCURDISP\ 
50 3 23 44 54 23 4E $8 P.AHB: ASCII \SZNEXTDISP\ 
4C 6C GF $3 53 54 45 4E a3 P.AHC: .ASCII \SZNEXTSCROLL\ 
54 5 29 4 55 4F 56 43 4E 629 P.AHD: ASCII \ZNEXTOUTPUT\ 
| 45 43 52 55 GF 53 56 45 4E P.AHE: ASCII \ZNEXTSOURCE\ 
-PSECT DBGSCODE,NOWRT, SHR, PIC.O 
O7FC 00000 DBGSSCR_LOOKUP_ DISPLAY: 
=. WORD peve Re R3,R4,R5,R6,R7,RB,RI,RIO 
5A 90000000" EF 9E 0000 MOVAB 
59 00000000" EF 9€ 000 MOVAB bacssta DIsPLay LIST, Rd 
57 04 ac p 0010 MOVL § NAMEPTR> R7 
6 0014 TSTB = (R7 
4@ 1 0016 BEQL «6s S$ 
58 01 a? 9€ 0001 MOV 1(R7), A 
2 68 91 0001C CMPB ss (RB), 
03 13 OOO01F BEQL=s«d1$ 
00F ¢ 31 0021 Rw 27$ 
50 | $ A 00024 18 mOVZBL (R7), RO 
00 68 + 20 99 q CMPCS RO, (RB), #0, #8, P.AHA 
° 
16 12 002D BNEQ 486-38 
54 04 a9 00 0002F MOVL DBGSSCR_DISPLAY_LIST+#4, DISPTR 
50 9 9 0033 28 MOVAB DBGSSCRIDISPLAY-LIST, “ko 
50 4 D1 000 CMPL DISPTR RO 
1F 13 000 BEQL $ 
20 0A Aad €9 000 BLBC 10(DISPTR), 6$ 
4 04 Ad 00 0003F MOVL  4(DISPTR oispre 
EE 11 00043 BRB 2s 
50 9A 00045 38: MOVZBL (R7), RO 
00 68 0 2D 00048 CMPCS RO, (RB), #0, #9, P.AHB 
08 AA 0040 
1A 13 O04F BNEQ 698 
54 69 p 99 1 MOVL DBGSSCR_DISPLAY_LIST, DISPTR 
50 9 4 4$: MOVAB DBGSSCR_ “DASPLAYILIST. RO 
50 4 09 7 CMPL DISPTR,~R 
; A 58 BNEO 
O00E 99 C BRW 1$ 
03 OA Ad 8 é $$: BLBS TOCDISPTR) , 8$ 
0008 31 3 7$: BRW 
54 64 b0 8$ MOVL  (DISPTR), DISPTR 
&9 1 6 BRB 4 
5 7 9A 00068 98: MOVZBL (R7) 
| 08 00 6 “ 30 20 $ cMPCS RO, ins), #0, #11, P.AHC 
| 9 12 S 7 BNEQ 148 
5 r¢ 7 CLRO FIRS! DISP 
36 69 p 79 VL DBGSSCR_DISPLAY_LIST, Disp TR 
0 69 9E 0007C 108% MOVAB DBGSSCRTDISPLAY“LIST, R 
| 
l 


| 
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MBs 14-Sep- 71982 96: i$: a DEBUG. SRC IDBGSCR Ntén.o%3s1 9° 25) 
| 50 54 : 7F CMPL sPTR. RO ; 
4 BEQL : 
| OA OA AG E BLBS i SPTR). i 39 
; ; TSTL _DISP : 39 
A BNEQ : 
55 4D C MOVL ioe FIRST. SP : 
D1 6 €£ fF 118 BL8BS PAST_C + 294 
FB OAD 4 D| x 128 CmPL p|sPth, Decssch CURDISP_SCROLL + 29% 
6 Fi D 9 MOVL #1, PAST_CURRENT : 
4 64 : 098 13$:  MOVL  (DISPTR)T DISPTR + 2944 
5 OF OA COORD 148:  ROVZBL (RP. RO $986 
0B 00 6 - 50 0 A CMPCS RO, (RB), #0, #11, P.AHD : 
33 12 BOAA BNEQ 208 : 
5 43 OOAC CLRO FIRST DISP + 2962 
4 69 g OA MOVL DBGSSCR_DISPLAY_LIST, DISPTR 3 2964 
0 $9 ‘ 081 15$:  MOVAB DBGSSCR-DISPLAY_LIST, RO + 2965 
0 4 D1 00084 CMPL ISPTR, : 
63 13 0087 BEQL 6§ : 
16 OA Ab f 0089 BLBS (DISPTR), 18% + 2967 
01 08 as 91 0008 a) 8(DISPTR), + 2968 
06 13 000C1 BEQL 16 : 
02 08 AG 9) O0¢s CMPB 0s B(DISPTR), #2 + 2969 
OA 12 000¢ BNEQ 18$ : 
3 DS 000C9 16$: —«*TSTL FIRST. DISP + 2972 
03 12 000CB BNEG ~=s:*17$ : 
55 54 00 000CD MOV DISPTR, FIRST _DISP : 
68 36 E8 00000 17% BLBS § PAST_CURRENT : 2973 
Fe AD 4 D1 00003 18$ CMPL DISPTR, DBGSSCR_CURDISP_OUTPUT + 2976 
03 12 0000 BNEG «198 : 
56 01 00 00009 MOVL #1, PAST_CURRENT : 
54 64 00 000DC 19S:  MOVL  (DISPTR)T DISPTR : 2977 
D0 11 OOODF BRB 138, > 2965 
: 9a 000E1 208: mOVZBL ¢ (R? + 2991 
08 00 68 0 2D 000€4 CMPC tas). #0, #11, P.AHE : 
27 =AA e9 3 
A 12 000€B BNEO me : 
5 7C 000ED CLRQ  FIRST_DISP : 2995 
54 69 0 OOEF MOVL  DBGSSTR_DISPLAY_LIST, DISPTR : 2997 
50 9 E OOF2 21$: MOVAB DBGSSCRDISPLAY LIST. RO : 2998 
50 4 D F CMPL ISPTR, R : 
2 13 FB 22%: BEQL 3 : 
19 OA Ab f FA BLBS (DISPTR), gts > 3000 
0 08 AS 91 OFF MPB B{DISPTR), a : 3001 
OA 12 001 BNEQ 4$ ; 
3 d5 001 TSTL FIRST _DISP > 3004 
12 001 BNEG 238 ; 
55 4 00 001 MOVL DISPTR, FIRST. SP ; 
4 6 €8 001 338: BLBS §_ PAST_CURRENT, “298 : 3005 
FC COA 4 D| 106 24%: CMP DISPTR, DBGSSCR_CURDISP_SOURCE : 3008 
3 1 BNEQ ; 
56 1 00 0011 MOVL #1, PAST_CURRENT : 
4 64 p 117 25$:  MOVL (D{SPTR): DISPTR : 3009 
D6 11A BRB 21 : 2998 
50 DO OO11C 268:  MOVL FIRST_DISP, RO : 3012 


4 
asia ERI NBA MSU ANRRET., 
04 0011F RET ; 
s A Git a ka Elst Be : $99 
g 4C A | 158 Hie Soa DISPNAME ; 038 
5 67 9A OO1eF mOVZBL (R7), Al : 30 
5 9A 132 MOV gL (DISPNAME), RO : 
50 00 Ft is i D 133 CMPCS R1, (RB), #0, RO, 1(DISPNAME) 
50 g 06 18¢ 298: Rove sitore. no 3035 
54 64 i 142 308 MOVL (DISPTR), DISPTR 037 
pc 1 128 BRB 28 030 
Binet ar _ 
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ROUTINE DBGSSCR_LOOKUP_WINDOW(NAMEPTR) = 
i FUNCTION 


This cout ing looks up the Screen Window Entry which gocresponés toa 
goec ified window name. It accepts a Counted ASCII window name as 
nput and returns a pointer to the corresponding Screen Window Entry 
as output. If no window by that name exists, zero is returned. 


INPUTS 


WAMEPTR = A pointer to the name of the window to be looked up. The 
name is represented as a Counted ASCII string. 


OUTPUTS 


A pointer to the Screen Window Entry of the named window is returned as 
the routine value. If no window by the specified name exists, 
zero is returned. 


BEGIN 


NAMEPTR: REF VECTORC, BYTE); ! Pointer to the ASCIC window name 
LOCAL 


WNAME: REF VECTORC BYTE) ! Pointer to current window's name 
WPTR: REF DBGSWINDOW_ENTRY i Pointer to current Window Entry 


! Loop through all the Window Entries in the Screen Window List until a 

! Window Entry with the desired name is found. When and if such a window 
is found, return a pointer to that Window Entry. 

WPTR = DBGSSCR_WINDOW LIST; 

WPTR = .WPTRCDBGSL_ WINDOW FLINK); 

WHILE  -WPTR NEQ DBGSSCR_WINDOW LIST DO 


WNAME = WPTRCDBGSA WINDOW NAME); 
IF CHSEQL(.NAMEPTREO), NAMEPTRL1), .WNAMELO], WNAME[1), 0) 


NRETURN -WPTR; 
WPTR = .WPTRCDBGSL_WINDOW_FLINK); 
END; 
There is no window by the specified name. Return zero. 
RETURN 0; 
END; 


OFC 00000 DBGSSCR_LOOKUP_wINDOW: 
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; 7 1 ROUTINE DBGSSCR_OUTPUT_LINE_MINIMAL(NEWLENGTH, NEWTEXT, NEWREND, 3 
; 9 ’ OLDLENGTH, OLOTEXT, OLOREND, ROW): NOVALUE = : 
3 1 1 ! FUNCTION 3 
: 1 1! This routine cuteyts a line of text to a specified Line on the terminal F 
3 1 ¢ 1! screen. The routine accepts both the new text (including rendition Hy 
: 1 1! attributes) and the old text currently on the screen as inputs. It 3 
; 1 1! then uses a minimal screen update algorithm to update the terminal : 
: 105 1! text with a minimal (more of less) number of characters being sent to F 
: ; : : the terminal. 3 
5 1 + 1 ! INPUTS 3 
3 ¢ 109 1! NEWLENGTH = The Length in characters of the new text Line to be output : 
3 iets 19 ; : to the screen. 3 
; 3005 118 1! NEWTEXT = A pointer to the text of the new Line to be output to the i 
3 4 11 1! screen, : 
; 300 1144 #1! PF 
3; 3008 119 1! NEWREND = A pointer to the rendition vector for the new text to be 3 
3; 3009 118 1! output to the screen. This vector contains one byte of F 
3 Bit ie : rendition bits for each character in the NEWTEXT vector. é 
; Big 1% : : OLDLENGTH = The Length of the old text Line currently on the screen. : 
3 3014 121 1! OLDTEXT = A pointer to the old text currently on the screen where the 3 
3; 3015 1 ¢ 3 new text Line will be written. If the old text on the screen : 
3 Og : ? ' is unknown, the OLDTEXT pointer must be zero. $ 
3; 5018 +. oe - OLDREND = A pointer to the rendition vector for the old text currently $ 
3 520 : $ : : on the screen. : 
3 05 : 3 : : ROW - The row (Line number on the screen) of the Line to be updated. $ 
; 05 130 1 ! OUTPUTS F 
3 3024 131 1! NONE 3 
3; 3025 1 ; 1! 3 
3: 3026 1 1 : 
3 st 134 BEGIN F 
3; 3028 135 é 
3 OS 136 MAP 3 
; 30 137 NEWTEXT: REF VECTORC,BYTE), ' Pointer to text of new screen Line 3 
3; 3031 138 NEWREND: REF VECTOR(E,BYTEJ, ' Pointer to renditions of new Line 3 
: O38 139 OLDTEXT: REF VECTOR(E,BYTE), ' Pointer to old text of Line on screen 3 
3 3 re OLDREND: REF VECTOR(E BYTE); ' Pointer to old renditions on screen 3 
3; 3035 146 LOCAL 3 
3 ose 14 UTEND ! End index of gtring to output 3 
; 303 144 OUTSTART, ' Start index of string to output ; 
: 3038 145 REND, ' Rendition codes for current section 3 
; 3039 hy STATUS ' Status code from screen routines : 
: 3040 14 TEXT DESC: BLOCK(8,BYTE), i Output string descriptor : 
3 3041 168 VAL IBCOUNT; ' Number of valid characters in a row 3 
3 ak 14 ‘ on the screen (in the old text) : 
3: 304 130 3 
3; 3044 151 3 
> 3045 138 al : 
3; 3046 15 ! Initialize the output Line string descriptor. ; 
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ergeeri8he P3:F9:2$ «— HRaUS Bhi Sbacecheen oss. 1 9° 27) 
' 
TERT -PESEDDSCSS CLASS) = DSCSK_CLASS_S; 
TEXT_DESCLDSCSB_DTYPE) = DSCSK_DTYPE_T; 
! If the old screen contents is completely unknown (indicated by OLDTEXT 
! being zero), the Line is erased and then rewritten in its entirety. 
: After that, we return. 
if .OLDTEXT EQL 0 
THEN 
BEGIN 
! Erase the current screen contents of the Line. If the new text has 
zero length, we then return right away. 
STATUS = SCRSSET_CURSOR(.ROW, 1); 
IF NOT .STATUS TREN SIGNAL(.STATUS); 
STATUS = SCRSERASE_LINE(); 
IF NOT .STATUS THEN SIGNAL(.STATUS); 
IF .NEWLENGTH LEQ 0 THEN RETURN; 
' Output the new text of the Line. Here we scan the Line's rendition 
! codes and force a separate output operation each time the rendition 
; codes of the text change. 
OUTSTART = 0; 
OUTEND = 0; 
REND = .NEWREND(O); 
ae do 
Saeed GEQ .NEWLENGTH) OR (.NEWRENDC.OUTEND] NEQ .REND) 
BEGIN 
Tent DE SEBS CEN LENGTH? = ,OUTEND = .OUTSTART; 
TEXT DESCCDSCSA_ POINTER] = NEWTEXTC.OUTSTART); 
STATOS = SCRSPUT SCREEN(TEXT DESC, .ROW, .OUTSTART * 1, .REND); 
IF NOT .STATUS TREN SIGNAL(.STATUS): 
IF ,OUTEND GEQ .NEWLENGTH THEN EXITLOOP; 
OUTSTART = sOUTEN: 
oo = ,NEWREND(C .OUTSTART); 


Q-orvecere 


The old (current) 
we initialize all 
screen update algorithm. 


UTSTART = 0; 


OUTEND = .OUTEND + 1; 
END; 


RETURN; 
END; 


ontents of the Line on the screen are known. Hence 
ndecies, counters, and flags needed for the minimal 


sae REEN | 
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ae eats Pak ee 9 Er eet a 29¢ 37) 
-1; 
OUNT = 100; 
UNEWRENDY 63; 


! Loop through the text vector to be output to the screen to identify the 
: sections of that text that must be updated on the screen. 


iNCR I FROM 0 TO .NEWLENGTH = 1 DO 
BEGIN 


If the current character matches what already is on the screen, we 
increment the count of the number of consecutive valid characters 
on the screen but do no output. Note that if the current character 
has a different rendition than the beginning of the character block, 
we set VALIDCOUNT to 100 to prevent characters of different rendi- 
tions from being included in the same output operation. 


F (.1 LSS .OLDLENGTH) AND 
Cueutexits 1) EQL .OLOTEXT “12 AND 
(.NEWRENDC.JJ EQL .OLDRENDL.1)) 


BEGIN 
IF .NEWRENDC.1] NEQ .REND THEN VALIDCOUNT = 100; 
+ postcomeans = .VALIDCOUNT + 1; 


! The current screen contents are invalid at this point. nless the 

! rendition is different or we just scanned past at least 5 consecutive 
' valid screen characters, we s mply mark the current end position and 
' keep gecunylesing the text section to be output. (Skipping over less 
' than 5 valid characters is not worth the cost of an extra cursor 
positioning.) 
E 


74 IF (.NEWRENDC.1] EQL .REND) AND (.VALIDCOUNT LSS 5) 
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OUTEN 
VALIDCOUNT = 0; 
END 


We are at the start of a new invalid text position on the screen. 
Now output the text section we just scanned past, as delimited by 
the OUTSTART and OUTEND indecies. The screen contents of that 
section is invalid, except pgssibly for small embedded sections of 
valid characters (less than 5 in a row per embedded section). 


LSE 
BEGIN 
IF .OUTEND GEQ .OUTSTART 
THEN 
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DBGSCREEN 1bese =-1984 :30: AX-11 Bliss-32 V4.0-74 Page 119 
v04=000 aati ae es 95:70:24 DEBUG. SRC IDBGSCREEN-B3 31 9 27) 
7B 12 000 BNEQ 10% ; 
01 Dd 000 PUSHL #1 + 3171 
1c =6AC ODD 00 PUSHL ROW : 
000000006 90 FB OO02A CALLS #2, SCRSSET_CURSOR : 
5 DO 00031 MOVL RO, STATUS : 
05 EB 00034 BLBS STATUS, 1$ : 3172 
55 «DD 00037 PUSHL STATUS : 
69 01 FB 00039 CALLS #1, LIBSSIGNAL : 
68 99 FB 003¢ 1$ CALLS #0, SCRSERASE_LINE + 3173 
55 0 DO 0003F MOVL RO. STATUS ; 
05 55 «EB 00042 BLBS STATUS, 2$ : 3174 
55 (OD 9004 PUSHL STATUS : 
69 01 FB 047 CALLS #1, LIBSSIGNAL : 
04 AC D OO04A 2$ TSTL § NEWLENGTH + 3175 
01 14 00040 BGTR : 
04 0004F RET : 
54 D4 00050 3$ CLRL OUTSTART + 3182 
52 04 00052 CLRL OUTEND : 3183 
58 0c BC 9a 00054 MOVZBL @NEWREND, REND + 3184 
53 D4 00058 4$: CLRL + 3187 
04 Ac 52 D1 O005A CMPL § OUTEND, NEWLENGTH : 
04 19 0005E BLSS 6=s-«SS$ ; 
53 D6 00060 INCL = R3 : 
09 11 00062 BRB 6$ : 
58 OC BC42 08 00 ED 00064 5$ CMPZV #0, #8, @NEWRENDCOUTEND], REND : 
ef 13 00068 BEQL 9$ ; 
6E 52 4 A3 0006D 6$ SUBW3 OUTSTART, OUTEND, TEXT_DESC : 3190 
04 AE 08 Bch4 i 90071 MOVAB @NEWTEXTCOUTSTART], TERT_DESC+4 ; 313) 
01 AG OOF 90079 PUSHAB 1 (OUTSTART) : 
1¢ AC DD 0007C PUSHL ROW : 
OC AE 9F 0007F PUSHAB TEXT_DESC ; 
6A 04 FB 00082 CALLS #4, SCRSPUT_SCREEN i 
55 50 DO 00085 MOVL RO, STATUS ; 
05 55 £8 00088 BLBS STATUS, 7$ : 3193 
55 «DD 00088 PUSHL STATUS ; 
69 01 FB 00080 CALLS #1, LIBSSIGNAL ; 
01 53 E9 00090 7$ BLBC =—._«aR'3|{._ BS : 3194 
4 00093 RET ; 
54 52 00 00094 8$: MOVL OUTEND, OUTSTART + 3195 
58 0c BC44 9A 00097 MOVZBL @NEWRENDCOUTSTARTJ, REND : 3196. 
52 D6 0009C 9$: INCL  OUTEND : 3199. 
BB 11 O009E BRB 4$ : 3185 
54 D4 000A 10$: CLRL §OUTSTART : 3210 
52 01 CE OOOA MNEGL #1, OUTEND : 3211 
57 64 BF 9A 900A MOVZBL #100, VALIDCOUNT ; 3218 
58 0c BC 9A O00A9 MOVZBL @NEWREND, REND ; 3 1 
53 1 cE OOAD MNEGL #1, I : 3230. 
6F 11 000B BRB 17§ : 
56 53 0c AC C1 000B2 11$:  ADDL3 NEWREND, I, R6 ; 3335 
10 AC 53 D1 0008 CMPL OLDLENGTH ; 0 
21 18 00088 BGEQ ; 
14 BC43 08 ace 1 ance CAPS @NEWTEXTCII, @OLDTEXTCID > 3231 
18 BC43 0c B43 4 0 C6 CMB @NEWRENDCI), @OLDRENDLI) : 3232 
58 66 08 8 ED Soc CMP7v #0, #8, (R6), REND > 3235 


| 
| 
| 
| 
| 
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DBGSCREEN 16-Sep-1984 02:30: AX-11 Bliss-32 V4.0-74 
y0e2000 13-808- 1 3b 95:70:24 DEBUG. SRC IDBGSCREEN.B3 31 
4 13 00004 BEQL 12 
57 64 8F 9A 00006 MOVZBL #100, VALIDCOUNT 
2 D6 ODA 128: INCL VALIBCOUNT 
58 rx 08 0 f ODE 13$:  CMPZV #0, #8, (R6), REND 
3 O0E BNEQ 4 
05 D1 OO0E CMPL -—*VALIDCOUNT, #5 
19 000E8 t 
54 D1 OOOEA 14$:  CMPL = OUTEND, OUTSTART 
é 19 OOED BLSS. 1 
50 52 4 C3 OOOEF SUBL3. OUTSTART, OUTEND, RO 
ef 50 01 Al OOF 3 ADDW3 , TEX 
04 AE 08 BC44 9E O00F MOVAB aNEWTEXTCOUTSTART), TEXT_DESC+4 
58 DD OO00FD PUSHL REND 
01 AG SF OOOFF PUSHAB 1 (OUTSTART) 
1c 6AC ODD 0108 PUSHL ROW 
OC AE 9F 0010 PUSHAB TEXT_DESC 
6A 04 FB 00108 CALLS #4, SCRSPUT_SCREEN 
55 50 00 00108 MOVL RO. STATUS 
05 55 €8 0010E BLBS STATUS, 15$ 
55 DD 00111 PUSHL STATUS 
69 01 FB 00113 CALLS #1, LIBSSIGNAL 
54 53 D0 00116 15$: MOVL I, OUTSTART 
cB 66 9A 00119 MOVZBL (R6), REND 
52 53 00 0011C 16$:  MOVL I, OUTEND 
57 04 OO11F CLRL  —- VALIDCOUNT 
8C 53 04 AC F2 00121 17$:  AOBLSS NEWLENGTH, I, 11$ 
54 52 D1 00126 CMPL  OUTEND, OUTSTART 
26 19 00129 BLSS.s 
52 54 C2 00128 SUBL2 OUTSTART, R2 
6E 52 01 Al 001 ADDW3 #1, R2, TEXT_DESC 
04 AE 08 BC44 9E 001 MOVAB a@NEWTEXTCOUTSTART), TEXT_DESC+4 
58 DD 0013 PUSHL REND 
01 A&G 9F 0013A PUSHAB 1(QUTSTART) 
1c =6AC ODD 9013p PUSHL ROW 
OC AE 9F 00140 PUSHAB TEXT_DESC 
6A 04 FB 00143 CALLS #4, SCRSPUT_SCREEN 
55 50 D 00146 MOVL RO, STATUS 
05 55 £8 00149 LBS § STATUS, 18% 
55 «(DD Oor4c PUSHL STATUS 
69 01 FB O014E CALLS #1, LIBSSIGNAL 
04 AC 10 ac 01 00151 18%:  CMPL OLENGTH, NEWLENGTH 
28 15 00156 BLEQ 
7E 04 ac es 0138 ADDL3 #1, NEWLENGTH, -(SP) 
1¢ 6AC «DD 0015p PUSHL R 
000000006 00 08 F 9160 CALLS #2, SCRSSET_CURSOR 
55 DO 0016 MOVL R A 
05 33 EB OO16A BLBS STATUS, 19$ 
5 DD 00160 PUSHL STATUS 
69 01 FB O16F CALLS #1, LIBSSIGNAL 
68 90 FB 001 é 19$: CALLS 40, SCRSERASE_LINE 
55 Q DO 0017 MOVL RO. STAT 
05 55 €8 00178 LBS STATUS, 208 
55 (DD 0178 PUSHL STAT 
69 01 FB 00170 CALLS #1, LIBSSIGNAL 
04 00180 208: _—=RET 
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GLOBAL ROUTINE DBGSSCR_OUTPUT_SCREEN: NOVALUE = 
i FUNCTION 


INPUTS 
N 


This routine outputs the current pasteboard contents to the terminal 
screen. It is normally called just before prompting for user input 
so that the screen is updated to show the results or consequences of 
the Last DEBUG command the user entered. 


ONE 


OUTPUTS 


NONE 


BEGIN 


LITERAL 
WBUFSIZE = 256; 


Size in bytes of screen work buffer 


LOCAL 
BUFFER: VECTOR(132, BYTE), 


L 
DISPTR: REF DBGSDISP_ENTRY, 
DLEPTR: REF DBGSDLINE_ENTRY, 


! Buffer for screen output strings 

' Display column position for this Line 
! Pointer to Screen Display Entry 

! Pointer to current Display Line Entry 


! 

' 

' 

! 
END_LIN ! Index of Last Line of scroll region 
LAST_USED_LINE, ! Index of last used Line on screen 
N, ! Temporary index into output buffer 
NAMEPTR: REF VECTORC,BYTE), ! Pointer to display name in ASCIC 
OLDTEXT, ' Pointer to old text for Line or zero 
REGSIZE ! Scrolling region size in Lines 
RENDITION_LINE i Flag set for Lines with rendition vector 
RENDPTR: REF VECTORE gy"ed ! Pointer to Line's rendition vector 
REND VECTOR: VECTORL132,BY1E], ‘| Temporary vector of rendition codes 
R_INDEX, ! Rendition vector index (current index) 
R_START, ' Rendition vector index (start index) 
SCROLL_AMOUNT, ' Scrolling amount in Lines (abs value) 
SCROLL DOWN, ! Flag set if scroll direction is down 
START_CINE, ' Index of first Line of scroll region 
STATUS ' Status code returned by screen routines 
TEXTCNT !' Number of characters in current Line 
TEXT DESCR: BLOCK(8, BYTE) i String descriptor for screen text Line 
TEXTPTR: REF VECTOR(,BYTES i Pointer to current Line's ASCII text 
WORK _BUF : VECTORLWBUE SIZE BYTE], | Screen buffer mode work buffer 
WORK_BUF _DESCR: BLOCK(8,BYTEJ; ! String descriptor for work buffer 


' Update the Pasteboard with the current contents and relative positions 
: of all the displays on the Screen Display List. 


DBG$SCR_UPDATE_PASTEBOARD(); 


Set up screen buffering mode to optimize the screen output. 
WORK _BUF _DESCRCDSC$B_CLASS) = DSC$K_CLASS_S; 


—— 
; 


——— 
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! Set the scrolling region to be the whole screen. This is only necessary 

! for VT100 terminals in which “Origin Mode” is set, meaning that all cursor 
! positioning is relative to the current scrolling region. The normal state 
i is that cursor positioning $ relative to the full physical screen, which 
! is what we requ re for our screen update to work correctly. By setting 

! the scrolling region to be the whole screen, we make sure that the cursor 
! positioning commands below work as intended regardless of the setting of 

} the Origin Mode bit in the vT100. 


STATUS = SCRSSET_SCROLL(1, 24); 
If NOT .STATUS TREN SIGNAL(.STATUS); 


nitialize START_LINE and END LINE to suppress an erroneous error message 
y the BLISS compiler about them not being initialized before use. (They 
: n fact initialized before use even without these two assiaqnments.) 

e 
I 
E 


BLISS compiler is ever fixed, these two lines can be reuwoved. 


! Loop > the Lines of the pasteboard to discover all regions that can 
! best be output by scrolling regions of the terminal screen. 


0 TO DBGSK_PASTE_SIZE - 1 DO 


So o 


! If this Line is a regular text Line, mark the start (if this is the 
! start) and end of the region of contiguous Lines from the same dis- 
play and increment the region size. 


if, PASTEBOARDC.1, DBGSB_PASTE_KIND) EQL DBGSK_PASTE_TEXT 


N 

DISPTR = .PASTEBOARDL.1, DBGSL_PASTE_DISPID); 
eREGSIZE EQL O THEN START_LINE = <1; 

END LINE = .1; 

REGSIZE = .REGSIZE + 1; 

END 


If the next Line is not a ropylor text Line, the potential scrollin 
region has ended and we see if scrolling a screen region is the bes 
ction. If it is, “8 then do so. Note that scrolling is disabled 

f this is not a VT100 class terminal. 


LSE IF (.REGSIZE NEQ 0) AND .DBGSGL_VT100_FLAG 
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THEN 
BEGIN 


' 

Entry for the start Line of this screen region. 
SCROLL_DOWN = 

SCROLL AMOUNT “y -PisTEBOARD. START_LINE, DBGS$W_PASTE_SCROLL]; 
IF OSE ROLL AMOUNT 

THEN cin 


GIN 
SCROLL_DOWN = FALSE 
SCROLL L=AMOUNT = = SCROLL AMOUNT ; 


i ing in the appropriate direction. 


if «SCROLL_AMOUNT NEQ 0) AND (.SCROLL_AMOUNT LSS .REGSIZE) 


BEGIN 
STATUS = SCRSSET SCROLL ( 
IF NOT .STATUS TREN SIGN 


~START_LINE * 1, .END_LINE + 1); 
AL(.S STAT TuS); 


' moves down the display text (positive scrolling amount), 


' 

i 

' 

i 

if .SCROLL_DOWN 

THEN 
BEGIN 


! Start by updating the old screen image by moving all 
i Lines up that we are about to scroll. 


iNcR_ J FROM . »START_LINE + .SCROLL_AMOUNT TO .END_LINE DO 


OLD_CNTC.J = .SCROLL_AMOUNT) = .OLD ent }; 

OLD“RENDL.J = .SCROLC_AMOUNT) = .OLD R sp: 

OLD~ VALID CROL LC_AMOUNT) = LBS VALI 4): 
CHSAOVE(. ati: OLD -SCREENC Jo #132) 


i 
REEN CROL L AMOUNT) $1323) 

CHSMOVE( OLB CNIT.JJ. OLD_SCREEN RENDL Jet 

END; 


J 
ob. CN 
OL. SCRE 
OLB CN }, 

6Lb_ SER EN_REND - .SCROLL_AMOUNT)#132)); 


only be ft up exist Lines on the screen here, The 
new | 


that they get written during the screen update below. 
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Determine the scrolling direction and amount from the Pasteboard 


! If scrolling can be done on the region (the set of Lines) we just 
i scanned, set up a scrolling region and then do the actual scroll- 


! If the geecett tng ocrect ion is down, meaning that the window 
! shift the screen contents up the specified number of Lines. 


Then do the actual scrott ing on the screen. Note shat we 
nes to be scrolled in are marked as invalid here so 


-—— 
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AX-11 Bliss-32 v4.0-74 P 125 
DEBUG. eRCTDBSECREEY. O35; 1 age 38 
NDO_LINE # 1, 1); 
(. STATUS); 

T 00 


pa19be 13:49:68 
E 


+ 1) = FALSE; 
AL(. STATUS); 


Otherwise, scroll the region up by SCROLL_AMOUNT Lines. This 
means that we move toward the top of the display and shift 
the corresponding Lines on the screen down the same amount. 


LSE 
BEGIN 


! Start by updating the old screen image by moving all 
} Lines down that we are about to scroll. 


DECR J FROM .END_LINE TO .START_LINE * .SCROLL_AMOUNT DO 


LDV 

CHSMOVE(.OLD_cNTt. 

OLD. ( 

OLD"S 

CHSMOVE (OLB j 

L “RENDE(.J =. SCROLL_AMOUNT) #132, 
REND(.J#1323); 


! Then do the actual scrolling on the screen. Note that we 
! only shift down ester ing Lines on the screen here. The 

' new Lines to be scrolled in are marked as invalid here so 
! that they get written during the screen update below. 


' 
' 
' 
! 
' 
STATUS = SCRSSET CURSOR(.START LINE + 1, 1); 
IF NOT pe ialys TREN SIGNAL(.STATUS); 

INCR J FROM 1 TO .SCROLL_AMOUNT DO 


GIN 
VALIDC.START LINE * .J = 1) = FALSE; 


OLD 
STATUS = SCRSDOWRN SCROLL() 
IF NOT .STATUS THEN SIGNAL(.STATUS); 


! Set the region size back to zero for any non-text Line. 


] 
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198 3:19:45 — Eotaug. gre ioacechtéw.oss; 1 Page 385 
¢ REGSIZE = 0; 
END; 


END; ! End of loop to find scrolling regions 


! If this is not a VT100 class terminal (for exemple. if it is a vT52), 
: invalidate all Lines in the old screen image. These Lines are no good 
: since the whole screen always scrolls when the user enters input. 


if NOT .DBGSGL_VT100_FLAG 
HEN 


BEGIN 
INCR J FROM 0 TO _DBGSK _PASTE_SIZE = 1 DO 
OLD_VALIDC.1) = FALSE; 


! Determine which is the last used Line in the pasteboard. ~ null lines 
' before this Line (i.e., above at least one display) will be blanked out 
} snsteod of being left alone as they are in the user program scrolling 

! region. 

1 


DECR 1 FROM DBGSK PASTE SIZE - 1 TO 0 0 


N 
LAST USED LINE = .]; 
Jf ;PASTEBOARDL.1., DBG$B_PASTE_KIND] NEQ DBGSK_PASTE_NULL THEN EXITLOOP; 


! Loop through the Lines in the pasteboard and output each such Line to the 
' terminal screen. Note that we apply the necessary shift-count to each 
! output Line so that Lines are correctly scrolled left or right. Each 
! Line is written out by the OUTPUT_LINI_MINIMAL routine which applies a 
minimal screen update algorithm to update the screen with the new text. 
INCR 1 FROM 0 TO DBGSK_PASTE_SIZE - 1 DO 

RENDITION_LINE = FALSE; 


H Eqnatrust the Line to be output to the screen based on the Line's 
' kin 
' 


CASE .PASTEBOARDL.1, DBG$B_PASTE_KIND] 
an FROM DBGSK_PASTE_NULL TO DBGSK_PASTE_BORDER OF 


' Handle the Null Line. A null Line before the last Line used for 
' part of a isplay is blanked out. A null Line after the last 

! used Line is left alone since it is part of the user program 

! scrolling region on the terminal screen. 


' 
' 
! 
' 
' 
CDBG$K_PASTE_NULLJ: 


an) 


<a 


x § 
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Wee 19-808-1382 95:70:74 DEBUG. sRCTDBGSCREEN.B5; 1 oe 8 
BEGIN 
TEXTPTR = BUFFER; 

TEXTCNT = 0; 
bol GTR .LAST_USED_LINE THEN TEXTPTR = 0; 


Handle an ordinary text Line from some Sisptey. Here we compute 
the text stort address and length by taking the column shift 
count (DCOL) into account so that d splay ines can be correctly 
scrolled left or right. (Scrolling right means that the window 
moves to the r ont over the display text--the actual screen con- 
tents are then shifted to the left--and vice versa for scrolling 
left.) Note that Lines from source displays are formatted by a 
separate routine. Also note that we check for Lines with per- 


v2: 


RANLSSSLF 


FPReececesecasacacasase 


PUP LV LIV LV IVIVSVISIS 
Oo 
uw 


TEXTCNT = MIN( DBGSSRC TERM 
IF TEXTCNT NEQ 0 THEN TEXTP 


- .DCOL + 1)); 
TRC.OCOLI; 


$10 
51 
54 ag character rendition information. 
08 614 [DBGSK_PASTE_TEXT): 
09 515 BEGIN 

10 big DLEPTR = .PASTEBOARDC.1, DBGSL_PASTE_DLINE); 
1 : 4 zDLePTacees VDLINE_ ourRCcEFEG) 

i§ + FORMAT SOURCE _LINE(.DISPTR, .DLEPTR, 

\3 y TEXTPTR, TEXTCNT, BUFFER) 
1 ; ELSE 

1 ‘ BEGIN 

+ 624 DCOL = .DISPTRCDBG$W_DISP_DCOL); 

1 625 TEXTPTR = DLEPTRCDBGSA_DLINE text); 

0 : $ IF .DLEPTR DBGSV_DLINE_RENDFCG 

1 2 THEN 

¢ : 3 BEGIN 

é RENDITION_LINE = TRUE; 

: : ° _—= = TEXTPTRC.TEXTPTRCO)] + .DCOLI; 
8 " 

9 5 

i 

5 


: Handle a blank Line which is part of a display's text. 
{DBGS$K_PASTE_BLANK): 
BEGIN 


eee eee eee ek ah sh sh sh eb ih Ab Ah Ab ah ah ad ah eh dh a al 


PEPPERS BB AA BPTI BO II BB BE EB PAIN BB 


4 
9 5 TEXTPTR = gerren; 
40 : $ TEXTCNT = 0; 
41 : 3 
328 $ 
544 50 ' Handle a Label Line on top of a display. This Line consists of a 
545 651 ' Line of dashes into which the display name has been filled. Note 
54 $36 ! that we also mark the Lobel Line accordingly if this display is 
54 65 ! currently selected for input, output, scrolling, or source. 


Ay eal ah al al ah sh ah Ab Ab Ab Ab ab ab ab hb Ab Ab Ab hh hh eh 
SELSSRANLESELESREL AS SaNo 


WwWnN— 


SSNS 


_ 
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WF wrn— 
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' 
{DBGSK_PASTE_LABEL): 
BEGIN 


Fill in the name of the display in the Label Line. 


TEXTPTR = BUFFER 
TEXTCNT = .DBG Shc fenjs'ey WIDTH; 
HSF -* TEX FFERS;: 


CHSFILLC" 

DISPTR = .PASTEB ARDE «1 DBESL: apAste _DISP1D); 
NAMEPTR = =" DISPIRLD BGSA 7 3° NARE 

CHSMOVE ( mIN(BO .NAMEPTR 033. NAREPTREN, BUFFERC2)); 
SPR NCD , eNAMEPTREO)) ¢ 


; If this is @ source Line display, fill in the module name Sa 
; the source text. For example: “““DISPNAM: module MODNAM-" 


ir (.DISPTRCDBGS$B_DISP_KIND) wt SOSK DES? SOURCE) AND 
' gf DISPTR DBGSL_-DISPMODPTR 


BEGIN 
re ey UPLIT BYTE(ZASCII °: module '), BUFFERC.NJ); 


DBGSETA. SYRWARE DISPTREDB $L _DISP_MODPTR], NAMEPTR); 
CHSMOV ETM (3¢ REPIRLOS} “NAMEPTRE1), BUFFERC.NJS; 
N : .N ¢ mING Rs NNAREPTRE i; 


' FILL im the display selections that apply to this display. 
: This can be -input-, -output-, -source-, and -scroll-. 
N = MIN(5O, 
If -DISPTR eal *pbcéscr _CURDISP_INPUT 
BEGIN 
wpe UPLIT BYTE(ZASCII ‘-input-"), BUFFERC.N)); 
=. 3 
END; 
I pectin EQL .DBGSSCR_CURDISP_OUTPUT 
BEGIN 
chenove (8, UPLIT BYTE(ZASCII ‘-output-"), BUFFERL.N)); 
=. 3 
END; 


eis EQL .DBGSSCR_CURDISP_SOURCE 


BEGIN 
CHSROVE (8, UPLIT BYTEC(RASCII ‘-source="), BUFFERC.N)); 
=. 3 


IF .DISPTR EQL .DBG$SCR_CURDISP_SCROLL 


Paar (38) 
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SN 
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a 5 3 
en 3eb=198e 93:99:23 — Ubeauc. Srcloacecneéw.ogss 1 
THEN 


oeein 
2M vets UPLIT BYTECZASCII ‘=scroll=-"), BUFFERC.NJ); 
Ss . 


! Handle the border Line below the lowest display on the screen. 
This Line consists of nothing but a Line of dashes. 


{DBGSK_PASTE_BORDER): 
BEGIN 
TEXTPTR = BUFF 


R: 
TEXTCNT = BE SShC TERM WIDTH; 
CHSFILL( =", .TEXTCNT, BUFFERS; 


Any other kind value is an internal DEBUG error. 


CINRANGE, OUTRANGE): 
$DBG_ERROR("DBGSCREEN\OUTPUT_SCREEN’); 


TES; 
! If the Line of text is a ‘null’ Line, i.e. part of the user program 
! scrolling region or otherwise outside any screen display, simply 
mark the Line contents as ‘‘invalid’’ and do not output any text. 
if .TEXTPTR EQL 0 
OLD_VALIDC.1] = FALSE 
! If this is a normal text Line, we output that text with the appropri- 
ate renditions using a minimal screen update algorithm. 
ELSE 
BEGIN 


! If the new Line does not have a rendition vector (i.e., if it has 
: ° single rendition for the whole Line), create a rendition vector 
or it. 


1 

' 

i 

' 

if NOT .RENDITION_LINE 

THEN 

BEGIN 

RENDPTR = REND_VECTOR(O); 

CHSF ILL ( .PASTEBOARD 1, BBGSB_PASTE_REND), .TEXTCNT, .RENDPTR); 


!' Update the screen with the new text of this line. 


ron i? 


<o 


N 5 
voo=000" 1ecSep-i9ee Vesteses — EdeauG. Sac SbaGScREEN.059; 1 Pee (28) 


OLDTE 
a it 1) THEN OLDTEXT = 0b0.S CREENC.1*132); 

bacéstr” poule INE_MINIMAL(.TEXTCNT, . TEXTPTR, RENDPTR. 
OLB, , OLDTEXT, OLD_SCREEN_RENDC.1*132), .1 * 1); 


Update the old screen image to reflect the new screen contents. 


CHSMOVE(. TEXTENT, ~TEXTPTR, OLD_SCREENC.1*132)) 
sHaAOVE 1 XTC CNT sRENDPTR, OLD“SCREEN_RENDL. 1#1329); 


= oo 
TEMTCRT aor 1 pecs PASTE. REND); 
LINE THEN OLD_RENDE.1 
= 


END; ! End of loop over pasteboard Lines 


! Set up a scrolling region on the screen which consists of those Lines at 
the bottom of the screen which are not covered by any display. We dynami- 


cally determine how many such Lines there are. 


START LINE 5, pee. PASTE_SIZE + 1; 
BER I FROM DBGSK_PASTE_SIZE TO 1 DO 
If .PASTEBOARDC.1 = 1, DBGSB_PASTE_KIND] NEQ DBGS$K_PASTE_NULL 
EXITLOOP; 
START_LINE = .J; 
END; 
STATUS = SCRSSET_SCROLL(.START bine. eEND_LINE); 
1f NOT .STATUS TREN SI GNAL (. STATUS 
Finally position the cursor at the start of the last Line of the screen. 
STATUS = SCRSSET_CURSOR(24 
IF NOT .STATUS TREN SIGNAL(. stitus); 
' Output the buffer built up in screen buffer mode to force all output to 
the terminal screen. The screen update is then complete. 
STATUS = SCRSPUT_BUFFER(O) 
If NOT .STATUS TREN SIGNAL(, STATUS); 


! If screen logging is turned on, we output the current screen contents to 


f 
the DEBUG log tite. After that, we return. 
eoete.. SCREEN_LOG THEN DBGSSCR_SCREEN_TO_LOGFILE(); 
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iets ener 8he FS 79i2) | PANEL Bh ige3e Ve eO-28s 9° 28) 
719 5 2 
; 3738 3852 1 END; 
| .PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
20 65 6C 75 64 6 6D 20 3A 0063F P.AHF: ASCII \: module \ : 
ep 74 75 70 6€ 69 2D 00648 P.AHG: ASCII \-input-\ : 
20 4 23 70 76 7 of D O064F P.AHH: . ASCII \-output-\ : 
> 6 6 ve & ; D 00657 P.AHI: .ASCII tgp BE : 
eb 6¢ 6¢ of i 63 7 0 90655 P.AHJ: .ASCII 536r9 “\ : 
50 54 55 4F SC 4E 45 & 4 3 47 42 66h 0667 P.AHK: .ASCII 3 S{BBGSCREEN\<92>\OUTPUT_SCREEN\ : 
4E 45 45 52 43 53 SF 54 55 00676 : 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
OFFC 00000 .ENTRY RrenecaOehIO-R SCREEN, Save R2,R3,R4,R5,R6,-; 3312 
SE FDBC CE 9€ 00002 MOVAB S66 eee : 
0000v CF 00 FB 00007 CALLS | aa te UPDATE pPASTEBOARD : 3363 
C AE 010E0100 8F 00 0000C MOVL  #17694976, QORK BUF _DESCR : 3370. 
0 AE 34 AE 9E 00014 MOVAB  WORK_BUF, WORK ‘aur BESCR+4 ; 3371 
2c «AE OF 00019 PUSHAB WORK BUF : 3372 
000000006 00 01 FB OOOIC CALLS - SERsseT BUFFER i 
6£ 50 D0 00023 MOVL ; STATU : 
09 6E €8 00026 BLBS hros. % : 3373 
6E DD 00029 PUSHL STATUS : 
000000006 00 01 FB 000¢8 CALLS #1, LIBSSIGNAL ; 
18 DD 00032 1$ PUSHL #24 > 3385 
01 DD 00034 PUSHL #1 : 
000000006 00 02 FB 00036 CALLS #2, SCRSSET_SCROLL ; 
6E 50 00 00030 MOVL RO, STATUS ; 
09 6E €8 00040 BLBS § STATUS, 2$ : 3386 
6E DD 00043 PUSHL STATUS : 
000000006 00 01 FB 00045 CALLS #1, LIBSSIGNAL ; | 
58 7C 0004C 2$ CLRQ START_LINE : 3394. 
14 ag D4 O004E CLRL REGSIZE 3 3401 | 
57 D4 00051 CLRL : 3402 
50 57 0c ¢5 90053 3$ MULL3 #12, I, RO : 3410 
02 00000000'EF40 91 00057 CMPB = PASTEBOARDCROJ, #2 : 
1¢ 12 00051 BNEQ : 
00000000°EF40 9F 00061 PUSHAB PASTEBOARD+4(RO] + 3413 
04 AE 9E 00 90068 MOVL (SP)+, DISPTR : 
14 AE 05 0006C TSTL REGSIZ > 3414 
12 0006F BNEG 4$ : 
58 DO 00071 MOVL 1, START_LINE ; 
59 7 DO 00074 4$ MOVL I, END_LINE 3 tele 
14 ar b6 0077 INCL  REGSIZE : 3416 
O1E 1 OOO7A 5$ BRW 26s : 3410 
14 AE DS 00070 6$ TSTL REGSIZE > 3425 
F8 13 00080 BEQL : 
F1 00000000" EF E 90 BLBC #$ DBGSGL_VT100_FLAG, 5$ ; 
1c) hCOA 1 9 0 MOVL #1, SCROLL_DOW : 3 3 
SA 5 C ¢5 0008D MULL3 #12, START“LINE, R10 > 3434 
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DEBUG. SRC JDBGSCREEN.B32;1 


OARD+2CR10) 
, SCROLL_ AMOUNT 


-*@ 


_DOWN 
“AMOUNT, SCROLL_AMOUNT 


OLL_AMOUNT, REGSIZE 


ND LINE) 

TART LINE) 
SCRSSET_SCROLL 
STATUS 


LIBSSIGNAL 
ROLL_AMOUNTCSTART_LINEJ, 24(SP) 
OLL_Bown, 11$ 


"| 24(SP), J 


er RW 


VALID? RO 
OLD_VALID 


Ri, OLD 
RO, R10, #T 
#132, J, R14 
#132, R10 
D-¢NnTLJ) 
SP)+, OLD_SCREENCR11], OLD_SCREENCR10) 
SP)+, OLD_SCREEN_REND(R11], - 
D_SCREEN_RENDCR10) 
D-LINE, J, 128 

LINE) 
SCRSSET_CURSOR 
STATUS 
TUS, 14$ 
TUS 
LIB$SIGNAL 


END_LINE, R11 


OLD_VALID, 16$ 
SCRSOP_SCROLL 
STATU 


TUS, 17$ 
$s 


U 
#1, LIBSSIGNAL 
SCROLL_AMOUNT, J, 15$ 


ND_LINE, J 
0$ 


SCROLL_AMOUNT, J, R10 
OLD_CNTCRI0J, OLB_CNTCJ) 
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4 DEBUG. SRC JDBGSCREEN.B32;1 
OLD_RENDCR10J, OLD_RENDCJJ 

R10; #1, OLD VALID 

RO, J, #1, OCD_VALID 

#132, R10, R11 

#1 J, R10 

o.d_ éntts) 

a(SP) OLD_SCREENCR11J, OLD_SCREENCR103 
a(SP)+, OLD_SCREEN_REND(R11], - 
OLD_SCREEN_REND R10) 

J, 24(SP) 

19$ 

#1 


STATUS 
#1, LIBSSIGNAL 


248 
ra tt ey LINE], RO 


5 
#1, LIBSSIGNAL 
SCROLL AMOUNT, J, 22$ 


#20, #1, 1, 3$ 
DBGSGL_VT160_FLAG, 298 
I OLD_VALID, 288 

#20, 17 278 

I CAST_USED_LINE 
PASTEBOARDCR13, rT 


#i2, | 
PASTEBOARD(R10), 12(SP) 
stepotatn 
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50 4 BE 9A 00325 
50 10 AE C2 00329 
5 08 00320 
9¢ 1 ETH 
50 D4 00351 
51 000000006 00 00 HEH 
50 51 01 0033A 
03 15 00330 
51 50 DO tte 
20 «AE 51 it 00342 
10 1 se 
24 =O 10 AE CO 00348 
09 11 00340 
24 — OA FF7?C §=6CD «O(9E 0034F 
20 AE e 0355 
011C 31 00358 
24 SOA FF7C 86D 43 0358 
20 AE 000000006 00 3 0361 
6€ 00 2C 00369 
FF7C CD 8 of 
QOOOD000"EFSA 9F § 
04 AE 9€ DO 0037 
046 =A ecosens’ 8F C1 00 ip 
5 2 ar p6 0 
Py.) g A 8 
50 BF A 91 3 
4 18 00 
5A 50 F 9A 00394 
01 OA A 28 98 
5 02 AA ‘ oF 
046 =A 0 § a 
0 6 1 A 
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BUFFER, TEXTPTR 
TEXTCN 

I, LAST_USED_LINE 
I XTPTR 
PASTEBOARD+8[R10) 


a(SP)+, DLEPTR 
#1, 9(DLEPTR), 37$ 


w= VOM 


TEXTPTR 

), 38$ 
NDITION_LINE 

XTPTR, RO 

DCOL, RO 

aTEXTPTRCROJ, RENDPTR 

@TEXTPTR, RO 

COL, RO 

39$ 

DBGSSRC_TERM_WIDTH, R1 

R1, RO 

40$ 

RO, R1 

R1, TEXTCNT 

DCOL, TEXTPTR 

BUFFER, TEXTPTR 

TEXTCNT 
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53$ 
BUFFER, TEXTPTR 


DBGSSRC_TERM_WIDTH, TEXTCNT 
#0, (SPY, #45, TEXTCNT, BUFFER 
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SP)+, DISPT 
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VOe at 1 95:70:24 DEBUG. SRC Sacechein.o35:1 9° 28) 
50 06 AE 34 1 OO3A ADDL3 #52, DISPTR, RO : 367% 
9 p 8 TSTL (ROS : 
: B4 BEQL 47 : 
FF7C CD47 00000000 EF 9 2 B MOVC3 #9, P.AHF, BUFFERCN] + 3677 
| . 28 AE OF OO8KG AOSHAB NAMEPTR : 3038 
52 08 AE 34 (C1 (7 ADDL3 #52, DISPTR, R2 : 
62 DD 003¢C PUSHL (R : 
000000006 90 FB ce CALLS #2, DBGSSTA_SYMNAME : 
28 ar p D MOVL NAMEPTR, RO + 3680 
SA $ A 00309 MOVZBL (RO), RIO : 
20 A 91 0030¢ CMPB R10, #32 ; 
: 1 OF BLEQU 46 : 
SA p 0361 MOVL. #32, R10 ; 
FF7C CD47 01 Ag A O3E4 46$ MOVC3 R10. 1(RO), BUFFERCN : 
5 SA g O3EC ADDL2 R10. N + 3681 
50 02 A? SE OO3EF 478 MOVAB 2(R?), RO : 3688 
32 30 D1 OO3F3 CMPL RO #50 : 
15 00 re BLEG 40s «48S : 
50 : DO 003F MOVL #50, RO : 
57 DO OO3FB 48S MOVL RO, N : 
00000000" €éF 06 AE 01 00 FE CMPL  DISPTR, DBG$SCR_CURDISP_INPUT + 3689 
0 if 04 BNEQ 49$ ; 
FF7C CD47 00000000° EF 07 28 0040 MOVC3 #7, P.AHG, BUFFERCN] : 369 
? 06 CO 0041 ADDL2 #6. N : 369 
00000000" éF 04 AE Dy 00416 49$ cHPL pisPTR, DBGSSCR_CURDISP_OUTPUT : 3696 
FF7C CD47 00000000° EF o§ § 00420 MOVC3 #8, P.AHH, BUFFERCNI : 3699 
7 07 CO 00428 ADDL2 #7. N : 3700 
00000000" EF 04 AE Dt 4 — 50S: cHPL 1SPTR, DBGSSCR_CURDISP_SOURCE : 3703 
FF7C CD47 00000000° EF 0 24 004 8 MOVC3 #8, P.AHI, BUFFERCN : 3706 
7 07 CO 0044 ADDL2 #7. N : 3707 
00000000' €F 04 AE D1 0446 51$: cMPL : gPTR, DBGSSCR_CURDISP_SCROLL : 3710 
FF7C CD47 00000000° EF og i 486 MOVC ag, P.AHJ, BUFFERCN] : 3713 
‘ OF Obese Bre. 53h"  3eRe 
34 AE FF7C 3=s CD 3 00460 528: MOVAB BUFFER, TEXTPTR : 3725. 
0 AE 000000006 00 p 90466 MOVL DBGSSRC_TERM_ WIDTH, TEXTCNT : 3726. 
20 AE 20 6 aoe 00 C O46E MOVCS #0, (SPT, #45, TEXTCNT, BUFFER : 3727 
24 AE OD ik, 53$: STL TEXTPTR : 3743 
9 1 047A BNEQ F 
00 00000000° EF 6 ; 47C BBCC : OLD_VALID, 54$ : 3745 
009F 31 00484 54$: BRW § : 
14 16 AE 34 487 55$: BLBS §RENDITION_LINE, 56$ : 3759 
08 AE FEFB CD 9E 004 MOV REND VECTOR, RENDPTR : 376 
50 0c ef 08 8 cf 491 EXTZV #8, #8. al2(SP), R : 376 
0 6E a ¢ 497 MOVCS #0. (SP), RO, TEXTCNT, @RENDPTR : 
8 AE D4 OO49F 56$: CLRL  OLDTEXT : 3769 
Et 36 E1 004A2 BBC 1, OLD VALID, 57$ : 3770 
6 900090 4 28F g3 GAA MULL3 #13 R ; 
18 «AE 0 O°EFGA — 00482 MOVAB OL ScREENCR10}, OLDTEXT : 
A6 OF 004BB 57%:  PUSHAB 1(IT : 3772 
5A 56 00000084 8F C5 004BE MULL3 #132, I. R10 ; 


11 00000000° 
SA 
| 


} 
i 


<o 


sai, 


| é 
| DBGSCREEN 18-se “19 :30: AX-11 Bliss-32 V4.0-7%4 Page 136 
be 1 ~30071 38% 96:70:21 DEBUG. SRC Secechcéy.o$;1 9° 28) 
| O0000000"EFSA 9F 004C6 PUSHAB OLD SCREEN RENDCR101 : 
DD ¢ PUSHL OLDTEXT : 
00000000°EF46 DD PUSHL OLD_CNTCIJ ; 
18 AE 0D 0040 PUSHL - RENDPTR ; 
; AE DD O04DA PUSHL TEXTPTR : 
AE DD 0040 PUSHL TEXTCNT : 
FO9A OCF 0? FB O04E CALLS #7, DBGSSCR_OUTPUT_LINE_MINIM : 
010000000" EF 4A 4 BE Ps § E MOVCS TEXTCNT, @TEXTPTR, OLD_SCREENCR10) 3 3777 
00000000'EF4A 8 A 4F MOVCS TEXTCNT, @RENDPTR. OLD~SCREEN_RENDCR10) : 377 
"EFS AE D FB mOvL TEXTCNT, OLD ent : 377 
50 oc 0 9 F EXTZV , #8, @ (SB), R : 3780 
00000000'EF 4 A MOVB * OLb_RENDCIJ ; 
0 14 AF § : BLBC REND! 10N_LINE, 58$ : 3781 
90000000 EF 46 : 1 MNEGB #1, OL ENDC I} ; 
90 0000000" €F 6 € IE 588: BBSS 1, OLD VALID, 59$ : 378 
FD66 t 1 4 F $: Ach @# Q. at, I, $28 : 357 
: 16 dO 0052¢ MOVL #22, START_LINE : 379 
18 D Serf MOVL #24, END_LINE ; 379 
$ 15 DO 005 é MOVL #21, I 3; 3794 
51 0¢ : 0535 60$ MULL3 #12. I, RI : 3796 
01 00000000°EF41 91 03 9 CMPB) =s- PAS TEBOARD-12(R1), #1 ; 
6 12 00541 BNEQ 618 : 
58 DO 00543 MOVL I, START_LINE : 3800 
gC 0 F 0546 SOBGTR I. 60$ + 3794 
8 70 00549 61$: MOVO START_LINE, -(SP) ; 3803 
000000006 0 98 FB O94¢ CALLS #2, SCRSSET_SCROLL ; 
6 50 pO 0055 VL —sRO,_: STATUS : 
0 6E €8 00556 BLBS STATUS, 62$ + 3804 
6€ DD 00559 PUSHL STATUS ; 
000000006 00 01 FB 0558 CALLS #1, LIBSSIGNAL ; 
01 DD 00562 628 PUSHL #1 + 3809 
18 DD 00564 PUSHL #24 ; 
000000006 00 9 FB 00566 CALLS #2, SCRSSET_CURSOR ; 
6E D 0560 MOVL RO, STATU ; 
09 6E €8 005 BLBS STATUS, 63$ : 3810 
6— 0D 0057 PUSHL TATU $ 
000000006 00 1 FB 097 CALLS #1, LIBSSIGNAL ; 
E 04 0057C 638: CLRL -(SP + 3816 
000000006 00 @. O57E CALLS #1, SCRSPUT_BUFFER ; 
3 0 D 0985 MOVL RO. STATUS : 
6—E E 5 BLBS STATUS, 64$ : 3817 
6€ DD 005 PUSHL STATUS ; 
000000006 00 01 FB 5 CALLS #1, LIBSSIGNAL : 
00000000° FF E9 00594 64%:  BLBC DBGSGL CREEN_LOG, 65$ > 3823 
0000v CF 0 FB 0059B CALLS #0, DBGSSCR_SCREEN_TO_LOGF ILE 3 
04 00500 65%:  _—RET : 3826 


3 Routine Size: 1441 bytes, Routine Base: DBGSCODE + 1033 


-—— 


<9 


4H 6 
SCREEN 16-Sep-1 :30: AX-11 Bliss-32 v4.0-74 

| vOe=606 19-808-1382 95:70:24 {oeBuG. SRC DBGSCREEN.B 3.1 
; y § 7 } GLOBAL ROUTINE DBGSSCR_PARSE_CANDISP_CMD(INPUT_DESC, VERB_NODE): NOVALUE = 

: $726 1 i FUNCTION 

3; 3725 1! This rout ine parses the CANCEL DISPLAY command. It accepts a command 

3 37 $ /e. 2 Line string descriptor as input and precuces a Verb Node for the parsed 
; 37 § 1! CANCEL DISPLAY comand @s output. That Verb Node and its attached Noun 
3; 37 ,; Nodes later serve as input to DBGSSCR_EXECUTE_CANDISP_CMD which actual- 
3 f : : : ly executes the command. 

: $731 1} INPUTS 

; 37 § 1; INPUT_DESC = A gtrtes Coser ietor pointing to the input Line being 

; 37 1! rsed. The descriptor is assumed to be pointing to the 

3 4 : H : } rst character after the CANCEL DISPLAY keywords. 

: 37 &e VERB_NODE = A pointer to the Verb Node to be built up for the command 

3 f ¢ : being parsed. 

: 3739 4 1 / outputs 

3; 3740 845 1! INPUT_DESC = The input string descriptor is updated to point to the 

3; 3741 $ 1! first character after the end of the command. This normally 
; Be : : means that the input string is exhausted. 

: 3744 809 1/ VERB_NODE = The passed-in Verb Node is filled in so that it and ail 

3; 3745 see 1! its attached Noun Nodes contains all information picked up 

3 Ss Se) ! during the parse ci the CANCEL DISPLAY command. 

: 3748 HL 2 

5 a8 See BEGIN 

> 3751 85 

: 732 Bee INPUT_DESC: REF BLOCKC,BYTE), ! Pointer to input string descriptor 

; 133 858 VERB_NODE: REF DBGSVERB_NODE; | Pointer to input Verb Node 

: 3755 860 CAL 

3; 375 861 DISPID: REF DBGSDISP_ENTRY, ! Pointer to Screen Display Entry 

3; 375 86 NAM ! Pointer to ASCIC display name 

: 3758 86 NOUN_NODE: REF DBGS$NOUN_NODE, | Pointer to current Noun Node 

3 e 4 see OLDPTR: REF DBGSNOUN_NOBE ; ! Pointer to previous Noun Node in List 
: 3761 866 

: 376 86 

: 376 868 ! First check for the /ALL qualifier. If it is present, we return right 

3; 3764 869 ' away with zero Noun Nodes attached to the Verb Node. No additional 

3 79? Hh } parameters are allowed in this case. 

; re 87 VERB_NODECDBGS$L_VERB_OBJECT_PTR] = 0; 

; 3768 7 IF DBGSNMATCH(.INPUT-DESC, BBGSCS_SLASH, 1) 

; , , % THEN 

: 771 6 IF DBGSNMATCH(.INPUT DESC, DBGSCS_ALL, 1) THEN RETURN; 

: a ? DBGSSYNTAX,ERROR(. INPUT _DESC) ; 

we Og : 

: 377 881 ! Otherwise, go into a Leap to pick up the names of all displays to be 

; 377 aa6 ' cancelled. for each suc display name, look up the corresponding 

; 3778 88 ! Display ID (thus ensuring that the display name is valid) and construct 
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| DBGSCREEN 1h-s85-19 :30: AX-11 Bliss-32 v4.0-74 
oer 14-Sep-19 95:79:24 DEBUG. SRC IDBGSCREEN.B3 31 
: Tr : a@ Noun Node to hold a pointer to the display name. 
3 37 NOUN NODE = 0; 

; 37 ¢ WHILE TRUE D 

; f : BEGIN 

; ; 3 9 ! Pick the displ d look i i he Displ i k 

3 ! Pic e display name and look it n the Display List to make 

; f 3 : sure there is ouch’ ® display. “ sae 

: 37 9% NAMEPTR = PARSE DISPLAY_NAME(.INPUT_DESC, FALSE); 

; 95 DISPID = DBGSSCR_LOOKUP-DISPLAY( .NAMEPTR); 

: 738 38 IF .DISPID EQL O° THEN STGNAL (DBG _NOSUCHDISP, 1, .NAMEPTR); 

; 379 9 

3: 3796 39 ! The display name is good. (Create a new Noun Node to hold a pointer 

; 3795 900 ! to the ereptey name and add that node to the Noun Node List attached 
; 736 st : to the Verb Node. 

; 798 308 OLDPTR = .NOUN_NODE; 

; 904 NOUN_NODE = DBGSGET TEMPMEM(DBGSK_NOUN_NODE_SIZE); 

; 3800 905 NOUN" NODE CDBGSL_NOUR_VALUE] = .NAMEPTR; 

; 3801 906 If .OLDPTR EQ. O 

; ane 90 THEN 

; rit hi VERB_NODECDBGSL_VERB_OBJECT_PTR] = .NOUN_NODE 

; 3805 910 ELSE 

3 806 a1 OLDPTRCDBGSL_NOUN_LINK] = .NOUN_NODE; 

; 3808 91 

; 3809 914 ! Check that the etsplay name is properly followed by a comma (in which 
; 3i? ae case we loop for more) or a carriage return (which ends the command). 
: aig 319 if DBGSNMATCH(.INPUT_DESC, DBGSCS_CR, 1) THEN EXITLOOP; 

; 813 98 If NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_COMMA, 1) 

; 815 3 9 DBGSSYNTAX_ERROR(.INPUT_DESC); 

3 si? , § END; ! End of loop over display names 

; 819 924 

; 3820 925 ! The command is fully oarsed and the Verb Node, complete with its List 

: 3 ; > $ of Noun Nodes, is fully constructed. Now return. 

; 9 RETURN; 

3: 3826 9 $ sine 

3; 3825 930 END; 

O7FC 00000 ENTRY peessce PARSE _CANDISP_CMD, Save R2,R3,R4,- 
R5,R6,R7,RB,RI,RI 
ss gannuuage 99 ge anaes ovag BREEN fH 0 
8 Q G 60 9E 00010 MOVAB DBGS$NMATCH, RB 


3827 


; Routine Size: 


176 bytes, 
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SO AOM VT NN HOW OUI O90 


F702 gf 
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000000006 00 
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DD 000 
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04 OO0AF 
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me 
Pa 
ooo 


pa19be 1:19:68 


Ax-11 BL 

YERG NODE. R2 

R9 

jwPut Desc, R3 

#3, DBGSNMATCH 
38 


. GSCS_ALL 
. ’ ce 


+ DBGSSYNTAX_ERROR 
NODE 
“ts 
+ PARSE _DISPLAY_NAME 
NAMEPTR 


#1, DBGSSCR_LOOKUP_DISPLAY 
RO, DISPID 


NAMEPTR 
#166498 
#3, LIBSSIGNAL 
NOUN NODE, OLDPTR 
#1, DBGSGET TEMPMEM 
RO, NOB 
NAMEPTR, ~ (NOUN_NODE ) 
OLDPTR 
NOUN_NODE, 8(R2) 
NOUN_NODE, 8(OLDPTR) 
* pce 
#3, DBGSNMATCH 

6$ 


“i. 

* psec 

#3, DEGSNMATCH 
$ 


os DBGSSYNTAX_ERROR 


beaue.encipacecncén.os5;1 
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886 
894 


3895 
3896 
3900 
3906 


3908 


911 
917 


3918 


3920 


3950 
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e~geo toes PS FFegh | PoNE SS Oi esede he sO"28s age 355 
GLOBAL ROUTINE DBGSSCR_PARSE_CANWIND_CMD(INPUT_DESC, VERB_NODE): NOVALUE = 


' FUNCTION 

This rout tne perses the CANCEL WINDOW command. It accepts a command 
Line str ng descriptor as input and produces a Verb Node for the parsed 
CANCEL WINDOW command as output. That Verb Node and its attached Noun 
Nodes later serve as input to DBGSSCR_EXECUTE_CANWIND_CMD which actual- 
ly executes the command. 


INPUTS 
INPUT_DESC = A strin descr igtor pointing to the input Line being 
persed. The descriptor is assumed to be pointing to the 
first character after the CANCEL WINDOW keywords. 


VERB_NODE - A pointer to the Verb Node to be built up for the command 
being parsed. 


wr 


wn 


OUTPUTS 
INPUT_DESC = The input eertes descriptor is updated to point to the 
first character after the end of the command. This normally 
means that the input string is exhausted. 


VERB_NODE = The passed-in Verb Node is filled in so that it and all 
its attached Noun Nodes contains all information picked up 
during the parse of the CANCEL WINDOW command. 


Pannen 


WONO US WOO 


BEGIN 


SISISSISSSEREL ESE SRP roo 


DOONAN WN OC OONOU EW 0O@ 


INPUT_DESC: REF BLOCKC,BYTE], ' Pointer to input gtr ing descriptor 
VERB_NODE: REF DBGSVERB_NODE; ! Pointer to input Verb Node 


LOCAL 
NAMEPT 
REF DBGSNOUN_NODE, 


NOUN_NODE : 
OLDPTR: REF DBGSNOUN_NODE, 
WPTR: REF DBGSWINDOW-ENTRY; 


02 Cd GS CD Co OD CD 
MwMvwu 


Pointer to ASCIC window name 

Pointer to current Noun Node 

Pointer to grevsous Noun Node in List 
Pointer to Screen Window Entry 


oe 


SOONOUES WO 0O@ 


ecscrencs 


! First check for the /ALL qualifier. If it is present, we return right 
' away with zero Noun Nodes attached to the Verb Node. No additional 
parameters are allowed in this case. 


VERB_NODECDBGSL_VERB_OBJECT_ PTR] = 0; 
Lf DBGSNMATCH(. INPUT DESC, BBGSCS_SLASH, 1) 


TH 

BEGIN 

IF DBGSNMATCH(. INPUT DES 
POGESTNTAK_ERROR(. INPUT 


SN NSN 


NOUSWN OO 


C, DBGSCS_ALL, 1) THEN RETURN; 
DESC); 


G0 Cd Gd 69 Gd Go Co Go Go Go 

ANNAN 

Oo 

DODDODOODODOOOO0O 
MFwn— 


ooo 
oo 


! Otherwise, go into a loop to pick up the names of all windows to be 
' cancelled. for each such window name, look up the Corresponding Screen 
! Window Entry (thus ensuring that the window name is valid) and construct 


SH73352 
awn 
PORIRUA OROROROROPURUNUIUNUTUIUIUIUIUIUIUIUNININ 3 2 tt es 


4 
wry 


989 


<o 
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&@ Noun Node to hold a pointer to the window name. 


oo 


! Pick up the window name and look it up in the Screen Window List to 
: make sure there exists such a window. 


NAMEPTR = PARSE_WINDOW NAME(. INPUT DESC); 


ooo 
wr 


33 
SSansesese seas 


WPTR = bBGSSCR_COOKUP QINDOW( .NAMEPTR); 

38 Z IF .WPTR EQL O° THEN STGNAL(DBGS_NOSUCHWIND, 1, .NAMEPTR); 

¥4 4 

8 4 ! The window name is good. Create a new Noun Node to hold a pointer to 
900 4 ! the window name and add that node to the Noun Node List attached to 
333 Z : the Verb Node. 

308 400 OLDPTR = .NOUN_NODE; 

904 4008 NOUN_NODE = DBGSGET TEMPMEM(DBGSK_NOUN_NODE_SIZE); 

905 4009 NOUN" NODECDBGSL_NOURN_VALUE] = .NARMEPTR; 

906 4010 If .OLDPTR EQ. O 

his VERB_NODECDBGSL_VERB_OBJECT_PTR] = .NOUN_NODE 


ELSE 
OLDPTRCDBGSL_NOUN_LINK] = .NOUN_NODE; 


' Check that the window name is properly followed 4 a comma (in which 
case we loop for more) or a carriage return (which ends the command). 


iF DBGSNMATCH(. INPUT DESC, DBGSCS_CR, 1) THEN EXITLOOP; 
IF NOT DBGSNMATCH(.INPUT_OESC, DBGSC§_COMMA, 1) 


N 
DBGSSYNTAX_ERROR(. INPUT_DESC); 
END; ! End of loop over window names 


i at tN _t t 


CSOnwOufwn—o 


! The command is fully parsed and the Verb Node, complete with its List 
of Noun Nodes, is fully constructed. Now return. 


RETURN; 
END; 


= 
SOOCOCCOCOOOOOoOoOoOOoOoOoOOoOoOOO 
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07FC 00000 -ENTRY DOBGSSCR_PARSE CANWIND_CMD, Save R2,R3,R4,- 3931 


A 900000006 00 9£ 00002 MOVAB DBESSINTAR ERROR. R10 
SRS: 6 HSH RS Baie 


heal 
on Fe : 
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53 04 : +4 
o £8 00098 
1 gp 
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; BD C 
on 1 7B 0008 
3 0D 4 2 
0000v CF 4 7 
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6 OD 040 
F79E gf 9h Ff O04F 
30 BO Gods, 
56 DD 00059 
1 OO tf 
00028A6A F DD 0005 
000000006 99 i FB 00065 
04 OD Bence 
000000006 90 iH fe 3 } 
65 36 4 0907 
pS goore 
08 A2 9¢ is 09080 
04 11 00084 
08 A 55 DO 00086 4$: 
very 84 BD BOOKA 38: 
68 5s 43 0092 
oa he ee 
FF 77 f BP 944 
0D 9 
8 : 4 OAD 
D E pA 
6A 1 +4 0 rm 
g ‘8 O0kB 
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; Routine Size: 174 bytes, 


Routine Base: 


DBGSCODE + 2384 


PR 


pa19be 1:17:68 


AX-11 Ot igse 
DEBUG. SRCJDB 


RB_NODE, R 
nay eR? 
R9 
PUT_DESC, R3 
. + on 

1 


G$CS_ALL 
. : 


#1. DBGSSYNTAX ERROR 


- 


BDZ RDDeWWDOVVWVD— De 
=AS- —~ 


#1, PARSE WINDOW_NAME 
RO, NAMEPTR 


i 


NAMEPTR 
#1, DBGS$SCR_LOOKUP_WINDOW 
RO. WPTR 


sbi 
66506 
Ae LIBSSIGNA 
w- NODE, OLDPTR 
+ oo TEMPMEM 


RO; 
NAMEPTRe *(NOUN_NODE ) 
OLDPTR 


NOUN.NODE » 8(R2) 
NOUN_NODE, B(OLDPTR) 
pes 
#3, DBGSNMATCH 

6$ 


& 

"psa 

#3, DBGSNMATCH 
es 


8 
Ae DBGSSYNTAX_ERROR 


Pe Se Se Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Be Be Ge Be Se Be Se Se Se Se Se Fe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


3980 


4007 
4008 


4009 
4010 
4012 
4015 


4021, 


4022 


4024 


3991 
4034 


oer REEN 


wr 


uw 


$3333 FI TITS 
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OOO 
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Daal tel a tek kee 


Sooooooooo 


w 
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5 tele el al el te De eel a Dalla a DD 
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1ersep-198e $3:79:25 — EbgauG. SacSbacscheEn.050: 1 


GLOBAL ROUTINE DBGSSCR_PARSE_DISPLAY_CMD(INPUT_DESC, 


SET/FLAG, VERB_NODE): NOVALUE = 


FUNCTION 


This routine parses the DISPLAY and SET DISPLAY commands. It accepts 
@ command Line string descriptor as input and produces a verb node 
for the parsed comnene as qutput. Since the DISPLAY and SET DISPLAY 
commands are very similar in syntax, both commands are persed by ne 
same code. The er LLG parameter, which is set to TRUE if this is 

@ SET DISPLAY command, is used to special-case those features which 
differ between the two commands. 


INPUTS 


INPUT_DESC = A string descriptor pointing to the input Line being 
parsed. The descriptor is assumed to be pointing to the 
first character after the DISPLAY or SET DISPLAY keyword. 


SET_FLAG = This flag has the value TRUE if the command being parsed is 
a SET DISPLAY command and the value FALSE if the command 
being parsed is a DISPLAY command. 


VERB_NODE = A pointer to the verb node to be built up for the command 
being parsed. The verb node is assumed to have one attached 
noun node but no adverb node on input. 


OUTPUTS 

INPUT_DESC = The input String descriptor is updated to point to the 
first character after the end of the command. This normally 
means that the input string is exhausted. 

VERB_NODE = The passed-in verb node is filled in so that it and all 
its attached adverb and noun nodes contains all information 
picked up during the parse of the command. 

BEGIN 
MAP 

INPUT DESC: REF BLOCKL,BYTEJ, ! Pointer to input string descriptor 

VERB_RODE: REF DBGSVERB_NODE; ! Pointer to input verb node 

DW_INDEX: INITIAL(0O); ! Default window index (0=H1, 1=H2) 

LOCAL 
ADVERB_NODE : ! Pointer to Adverb Node to contain 
REF DBGSADVERB_NODE, : qualifier information 

CBE ' CBEG parameter of window specification 

CLEAR_FLAG, i Flag set if /CLEAR qualifier found 

CL ' CLEN parameter of window specification 

CONTENT_PTR, i‘ Pointer to DEBUG command List which 

: defines display contents 

EXPC_DESC: BLOCK(8,BYTE), ' String descriptor for default source 

: command List 

FLAGWORD, ' Flag yonguord with all qualifier 

nformation=--saved in Adverb 


Node value field 


— 
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‘WOo=000 14-Sep O=1986 93: 39: 4 DEBUG. SRC DBGSCRE EEN.B b3351 . (31) 
: 3989 4092 ¢ SENenats -ALt FLAG, ! Flag set for /GENERATE all displays 
; 3990 409 GENERA TE-FLAG, ' Flag set if /GENERATE qualifier found 
; 3991 4094 RING ! Flag set if /HIDE qualifier found 
; 399 4095 ' The display kind (content spec kind) 
; 399 409 MARK ' Flag set if /MARK CHANGE ualifier found 
: 3994 409 NAREPI Sher VECTORC BYTE), i Pointer to current ASCIC display name 
>; 3995 4098 NOMARK_FLA ' Flag set if /NOMARK_CHANGE qual found 
: 3996 4099 NOUN NODE? REF DBGSNOUN_NODE, | Pointer to current Noun Node 
: 3997 4100 D_ROUN_PTR: REF DBGSNOUN_NODE,! Pointer to previous Noun Node 
3; 3998 4101 RBE ' RBEG parameter of window specification 
: 3999 410¢ REFRESH_FLAG, i Flag set if /REFRESH qualifier found 
3; 4000 410 REMOVED_FLAG, ! Flag set if /REMOVED | mb found 
3; 4001 4104 RLEN, ' RLEN parameter of window epee rT peet ren 
; 400 4105 SIZE ! Display size from /SIZE:n quelit ier 
; 400 4106 WNAMEPTR: REF VECTORL BYTE], ' Pointer to current ASCIC window name 
3: 4004 4107 2 WPTR: REF DBGSWINDOW “ENTRY; ! Pointer to current Screen Window Entry 
3; 4005 4108 2 
; 4006 4109 
: 4007 4110 ie 
: rts ait $ Initialize various flags used to mark the various qualifiers specified. 
3; 4010 4118 2 REFRESH wy FALSE; 
3; 4011 4114 2 FLAG = FALSE; 
3; 4012 4115 2 MAREE = FALSE: 
3; 4013 4116 2 NOMARK F Cag = FALSE; 
> 4014 4117 2 REMOVED _FLAG = FALSE; 
3 4015 4118 2 CLEAR_FCAG = FALSE; 
: 4016 4119 2 GENERATE _ALL_FLAG = FALSE; 
3 4017 4120 2 see ~FLAG = FALSE; 
3; 4018 4121 2 ZE = 
3; 4019 4122 2 
: 4020 4123 § 
3; 4021 4124 ! Loop to pick up all command qualifiers. for each qualifier, set the 
5 rey 4 rth 3 § i : appropriate flag to indicate that it was found. 
3: 4024 4127 4 GHILE DBGSNMATCH(.INPUT_DESC, DBGS$CS_SLASH, 1) DO 
: 4025 4128 BEGIN 
3; 4026 4129 3 
3; 4027 4130 3 : . 
3; 4028 4131 3 ! Determine which qualifier we have and mark its presence. 
3: 4029 $136 ; : 
; 4030 413 SELECTONE TRUE OF 
3; 4031 4134 SET 
: 1036 At 
3 40 4136 ; 
3; 4034 4137 ! Jf this is the /REFRESH geet vers mark its presence. Note that 
3 rts #4 $138 } this qualifier is allowed only on the DISPLAY command. 
3; 4037 4140 CIF .SET_FLAG THEN FALSE ELSE 
: 4038 4141 DBGSNMATCH(. INPUT_DESC, DBGSCS REFRESH, 3)]: 
3; 4039 $iee REFRESH_FLAG = “TRUE: 
3; 4040 414 
3; 4041 4144 : : 
3 404 4145 ! If this is the /CLEAR qualifier, mark its presence. This quali- 
3; 404 2% i fier is only allowed on the DISPLAY command. 
3 4044 414 i 
3; 4045 4148 CiF -SET_FLAG THEN FALSE ELSE 


ow 


ppesee EN 1b-se -Sep-1984 t 98: 79: 4 AX=-11 BL 


Aiggeze V4.0-74 
14-Sep-1984 DEBUG. SRC JDBGSCREEN.B3e; 1 
> 4046 6149 DBGSNMATCH( INPUT DESC, DBGSCS_CLEAR, 2)]: 

: 4047 4150 CLEAR_FLAG = TRUE; 

. 

: 4050 2188 ! If this is the /GENERATE qualifier, mark its presence. Note that 
: eRe) tie this qualifier is allowed only on the DISPLAY command. 

: toss 4156 CIF .SET_FLAG THEN FALSE ELSE 

> 4054 41 DBGSNMATCH(. INPUT ESC DBGSCS_GENERATE, 2)]: 

> 4055 4158 GENERATE_FLAG = TRUE; 

+ rt 

: 4058 4161 If this is the /HIDE qualifier, mark its presence. 

: 4060 t1e8 3 CDBGSNMATCH INPUT DESC, DBGSCS_HIDE, 2)]: 

> 4061 4164 3 HIDE_FLAG = TROE; 

: 8s ig 

; rt +¢) 3h 24 ; If this is the /MARK_CHANGE qualifier, mark its presence. 

: 4066 4169 3 CDBGSNMATCH(. . INPUT_DESC, DBGSCS_MARK_CHANGE, 2)]: 

: 4068 4171 & MARK_FLAG = TRUE; 

: 4069 417g 4 NOMARK LPeAG FALSE; 

: 4070 4173 3 END; 

: t072 tins 3 

: 4073 4176 3 ' If this is the /NOMARK_CHANGE qualifier, mark its presence. This 
; rtf rate 4 H qualifier is only allowed on the DISPLAY command. 

: 4076 4179 3 CIF .SET_FLAG THEN FALSE ELSE 

: 4077 4180 ; DBGSNMATCH(. . INPUT_DESC, DBGSCS_NOMARK_CHANGE, 4)]: 

: 4079 4182 4 NOMARK FLAG = TRUE; 

+ 4080 4183 4 MARK_FCAG = FALSE; 

: 4081 4184 3 END; 

: oo8 tie 3 

: rs 4] ty 4 ; If this is the /REMOVED qualifier, mark its presence. 

: 4086 4189 3 (DBGSNMATCHC. INPUT -DESC, DBGSCS_REMOVED, 3)): 

+ 4087 4190 REMOVED_FLAG ="TRUE: 

ri 

: 46090 1198 ' If this is the /SIZE:n qualifier, pick up the requested display 
3 $33) 1138 size and check it for validity. 

; 4093 4196 3 CDBGSNMATCH(.INPUT_DESC, DBGSCS_SIZE, 2)): 

: 4095 4198 4 IF NOT DBGSNMATCH(.INPUT_DESC, DBG$CS_COLON, 1) 

: 1098 1300 § THEN GIN. 

: 4098 4 ot 5 IF NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_EQUAL, 1) 

: 4100 4 $8 ; DBGSSYNTAX_ERROR(. INPUT_DESC); 

+ 6101 4204 

: 6102 4205 4 END; 


e 
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| 
| 
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DBGSNSAVE _DECIMAL_INTEGER( 

IF C.SIZE-LSS 1) OR (.SIZE 
SIGNAL (DBGS_INVDSPSIZ, 

END; 


INPUT ESC. SIZE); 
GTR 1000) 
1, .SIZE); 


! Any other qualifier constitutes a syntax error, which we 
: signal at this point. 


COTHERWISE): 
DBG$SYNTAX_ERROR(.INPUT_DESC); 


TES; 
END; ! End of qualifier scanning loop 
! For the DISPLAY/GENERATE command, the parameter List is optional. If 
! there are no parameters, we set GENERATE ALL_FLAG to indicate that all 
automatically generated displays should be régenerated. 
iF GENERATE FLAG AND DBGSNMATCH(.INPUT_DESC, DBGSCS_CR, 1) 
GENERATE_ALL_FLAG = TRUE; 
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! Build an Adverb Node and fill all qualifier information into the value 
field of that node. 
FLAGWORD = 0 
FLAGWORD<V_(0)> = .REFRESH_FLAG; 

24 FLAGWORD<V"(1)> = .CLEAR_FCAG; 

24 FLAGWORD<V_(@)> = .GENERATE_ALL_FLAG; 

24 FLAGWORD<V_(3)> = .GENERATE_FLAG; 

24 FLAGWORD<V"(4)> = .HIDE_FLAG; 

24 FLAGWORD<V_(5)> = .MARK-FLAG; 

24 FLAGWORD<V_(6)> = ,NOMARK FLAG; 

4 FLAGWORD<V"(7)> = .REMOVED FLAG; 

4 FLAGWORD<V~(16,16)> = .SIZE; 

4 ADVERB_NODE = OBGSGET_TEMPMEM(DBGSK_ADVERB_NODE_SIZE); 

4 ADVERB" NODECOBG$L_ADVERB_VALUE] = .FLA , 
VERB_NODECDBG$L_VERB_ADVERB_PTR] = .ADVERB_NODE; 


! For the DISPLAY/REFRESH command, no further parameters are allowed. We 
' thus return right away. We also return immediately for the parameter- 
less DISPLAY/GENERATE command. 


if sREFRESH_FLAG OR .GENERATE_ALL_FLAG THEN RETURN; 
' Loop to pick up the names and attributes of all displays to be displayed 


' or created. For the SET DISPLAY command, we only go through this loop 
' once since that is all the syntax allows. 
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NOUN_NODE = 
WHILE TRUE D0 
BEGIN 


SP_NOKIND; 
EN KIND = DBGSK_DISP_NORMAL; 


} Pick up the display name. 
NAMEPTR = PARSE_DISPLAY_NAME(.INPUT_DESC, NOT .SET_FLAG); 
! Pick up the window specification if one is present. The window spec- 
! ification may be either a parenthesized List of window parameters or 
an already declared window name. 
if DBGSNMATCH(.INPUT_DESC, DBGSCS_AT, 2) 

BEGIN 
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1 287 ! If the user is specif ing a window specification of the form 

1 288 ! "“(rbeg, rlen, cbeg, clen)"’, pick up the window parameters and 

: 2 3 } create a Temporary Screen Window Entry for those parameters. 
: $ 1 Fee een SER DBGSCS_LPAREN, 1) 
1 338 BEGIN 
1 94 PARSE_WINDOW PARAMETERS(.INPUT DESC, RBEG, RLEN, CBEG, CLEN); 
295 WPTR = DBGSSCR_CREATE_TEMP_WINDOW(.RBEG, .RLEN, .CBEG, .CLEN); 
1 97 
1 298 
1 4299 ! Otherwise he must be agee ttre a window name. Pick up that name, 
1 4300 ' look it up the in the Screen Window List, and signal an error if 
1 4301 ! there is no such window. 

199 $308 : 

00 430 ELSE 

01 4304 BEGIN 

34 4305 WNAMEPTR = PARSE WINDOW _NAME(. INPUT DESC); 
$0 £306 WPTR = DBGSSCR_LOOKUP_WINDOW( .WNAMEPTR) ; 

04 430 IF .WPTR EQL O-THEN STGNAL(DBG$_NOSUCHWIND, 1, .WNAMEPTR); 

05 4308 END; 

06 rh ts 

0 4310 END 

08 ogi] 

09 4 ‘¢ f 

10 431 ! If there is no window specification but this is a SET DISPLAY 
211 4314 ! command, we want a default window specification. This is done 

\¢ 4315 ' by creating a Temporary Screen Window Entry for window H1 or H2. 

+ : 1g Subsequent default windows alternate between H1 and H2. 

15 4318 ELSE IF .SET_FLAG 
216 4319 THEN 
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CREATE_TEMP_WINDOW(10®.DW_INDEX + 1, 9, 1, 132); 
GL 0 THEN DWTINDEX = 1 ELSE DW_INDEX’= 6; 


$ 
$ 


Pick up the display kind if one is present. 
SELECTONE TRUE OF 
SET 


Check for the NORMAL display kind. 

CDBGSNMATCH(.INPUT_DESC, DBGSCS_NORMAL, 3)]: 
KIND = DBGSK_DISP_NORMAL; 

Check for the DO(cmd-List) display kind. 

CDBGSNMATCH(.INPUT_DESC, DBG$CS_DO, 2)): 
BEGIN 


KIND = DBG$K_DISP_DO; 
IF NOT DBGSNMATCHT.INPUT_DESC, DBGSCS_LPAREN, 1) 


N 
DBGSSYNTAX_ERROR(.INPUT_DESC); 
FO NCATE EME ST TTOL. WN SER, CONTENT_PTR, FALSE); 


! Check for the SOURCE or SOURCE(cmd-List) display kind. If the 
(cmd-List) is missing, we leave CONTENT_PTR zeroed. 


CDBGSNMATCH(.INPUT_DESC, DBGSCS_SOURCE, 3)]: 
BEGIN 


KIND = DBG$K_DISP_SOURCE; 
IF DBGSNMATCA(.INPUT_DESC, DBGSCS_LPAREN, 1) 


HEN 
DBGSNSAVE_BREAK_BUFFER(.INPUT_DESC, CONTENT_PTR, FALSE); 
END; 


Check for the REGISTER display kind. 


CDBGSNMATCH(.INPUT_DESC, DBGSCS_REGISTER, 3)): 
KIND = DBGSK_DISP_REGISTER; 


TES; 
!' Now build a Noun Node for this display specification and its 
' yarious attributes. Add that Noun Node to the linked List of 
Noun Nodes attached to the Verb Node. 


OLD_NOUN_PTR = .NOUN_NODE; 
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: 42746 4377 NOUN_NODE = + nee TEMPREM(DBGSK NOUN NODE _SIZE_LONG); 

; 4275 437 NOUN_NODE (DBG NOUR VALUE amyl 

3 4 6 437 ape a | DBGSL_NOUN_ vay a rik: 

3; 427 4380 NOUN_NODE [ DBGS$L_NOUN_V 

: 4 ud: 4381 NOUN"NODE CDBGSL “NOUN ALUES = TEIN} PTR; 

3 4 4 § IF .OLD_NOUN_PTR EQL 

: 4280 4 THEN 

; ? 3) ? 2 VERB_NODECDBGSL_VERB_OBJECT_PTR] = .NOUN_NODE 

3 4 BS 4 § ELSE 

3 2 rf 2 Hf OLD_NOUN_PTRCDBGSL_NOUN_LINK] = .NOUN_NODE; 

: 4 Bg 4389 

: 428 4390 ! If the next token is a carriage-return (end of command), we exit 
; 4288 4391 ! the Stepre epee *vrees ton loop. However, if the next token is a 
; 4 89 4 3 i comma, oop for the next display specification. 

3: 6291 4394 IF INPUT Pesccescey. LENGTH) EQL 0 THEN EXITLOOP 

7 4 35 4395 If DBGSNMATCH(.INPUT-DESC, DBGS$CS_CR, 1) —, ExiTL00P; 

> 629 4 %6 IF NOT DBGSNMATEN(. VINPUT _BESC, DBGSCS_COMMA, 

3 62946 439 THEN 

3 ? +4 ? 4 DBGSSYNTAX_ERROR(.INPUT_DESC); 

3: 4297 4400 END; ! End of loop over display specs 
3; 4298 4401 

3; 4299 440 

; 4300 440 ! The command processing is completed. Now return. 

3; 4301 440 ‘ 

: 430 4405 RETURN; 

3; 430 44 

3; 4304 4407 1 END; 


-PSECT DBGSOWN,NOEXE, PIC.2 


00000000 01770 DW_INDEX: 
-LONG 0 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 .ENTRY p GSSCR PARSE_DISPLAY_CMD, Save R2,R3,R4,- 
6,R7,R8,R9,RIO,RIT 
SE IC C2 9002 SUBL2 ; meee * 
4 000 CLRL = HIDE_FLAG 
4 7 90 7 CLRG  NOMARK FLAG 
§ 7C CLRO GENERATE FLAG 
7C 000 CLRQ = CLEAR_FLAG 
B D4 CLRL GENERATE _ALL_FLAG 
E 04 f CLRL 
52 04 aC DO 00011 MOVL INPUT_DESC, R2 
01 pp 13 1$ PUSHL 
00000000' gf f 1 PUSHAB DBGS$CS_SLASH 
é DD 0001D PUSHL R 
000000006 00 03 FB OOOTF CALLS #3, DBGSNMATCH 
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03 50 BLBS} =s«RO, 28 
0150 BRw 4 
04 o8 A 28: BLBC =: SET_FLAG, 38 
5 CLRL RR 
03 oD ss: Puem 2 
00000000" &F BF PUSHAB DBGSCS_REFRESH 
DD C PUSHL R 
000000006 00 Fe CALLS #3, DEGSNMATCH 
1 : 4$: CMB RO, # 
SA 83 06 A MOVL #1, REFRESH_FLAG 
C6 D S$: BRB 1 
04 08 Ac 9 F 6$: BLBC SET_FLAG, 7$ 
5 Ti CLAL R 
11«11 5 BRB 8$ 
02 bo 7$: PUSHL #2 
00000000' EF F 00059 PUSHAB DBGS$CS_CLEAR 
HL 
DD 0005F PuS R 
000000006 00 g it 0061 CALLS #3, DBGSNMATCH 
01 g : 00068 8$: (MPL) eR, #1 
6 00068 BNEG ~=-« 108 
59 1 00 00060 MOVL #1, CLEAR_FLAG 
A3 1 9$ BRB 1$ 
04 08 ac €9 108 BLBC = SET_FLAG, 11$ 
50 D4 0007 CLRL oR 
11 11 0007 BRB 12$ 
02 DD 0007A 11$:  PUSHL # 
00000000' EF OF oo7¢ PUSHAB DBG$CS_GENERATE 
: DD 0082 SHL OR 
000000006 00 g FB 000 CALLS #3, DBGSNMATCH 
01 g pI 0088 12%:  CMPL RO a 
2 8 BNEQ «1:38 
56 1 D MOVL #1, GENERATE_FLAG 
9 11 0009 BRB Is 
0 4 13$ PUSHL @ 
00000000' EF F PUSHAB DBGS$CS_HIDE 
DD 00090 PUSHL R 
000000006 00 9 FB 009F CALLS #3, DBGSNMATCH 
01 : Ag CMPL) SRO. #1 
6 2 BNEQ «148 
58 1 AB MOVL #1, HIDE_FLAG 
9 11 BRB 5$ 
02 0D 148 PUSHL #2 
PUSHAB DBGSCS_MARK_CHANGE 
00000000" EF PUSHAB $ 
000000006 00 FB A CALLS #3, DBGSNMATCH 
01 , C1 (MPL). 
; C4 BNEG 158 
55 1D C6 MOVL #1, MARK_FLAG 
4 04 000¢ CLRL NOMARK_FCAG 
0 11 CB BRB 3 
04 08 AC E9 OOOCD 15$: BLBC SET_FLAG, 168 
50 04 00001 CLRL oR 
11 11 0000 BRB 17$ 
04 DD 00005 168: PUSHL #4 
00000000" EF 9F 000D PUSHAB DBG$CS_NOMARK_CHANGE 
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DD 00000 Pus : 
000000006 90 F DF CA ts a3, DEGSNMATCH F 
Es 178: (CMPL R : 4179 
E BNEG so : 
54 1 B MOVa #1, NOMARK_FLAG : 418 
Q 1 £ BRB + 41 
0 FO 18%: PUSHL @# : 4189 
00000000" EF 9F O00F PUSHAB DBG$CS_REMOVED : 
DD O00F PUSHL R F 
000000006 00 Fe OFA CALLS #3, DEGSNMATCH : 
FD Solos ag es ; 
57 1 06 1 MOVL #1, REMOVED_FLAG : 4190 
1 BRB 238 : 
02 0D 00108 19$: PUSHL @# + 4196 
00000000" EF 9F 001 PUSHAB DBGS$CS_SIZE : 
DD 0011 PUSHL R : 
000000006 00 FB 0011 CALLS #3, DBGSNMATCH : 
1 D1 0011C CMPL =e. #1 : 
C 12 OO11F BNEG 22$ ; 
07 oD 00121 PUSHL @# : 4198 
00000000' EF F 00123 PUSHAB DBGSCS_COLON : 
DD 00129 PUSHL R : 
000000006 00 g FB 001 CALLS #3, DaGSNMATCH : 
1D £8 001 BLBS RO. 20$ : 
01 0D 001 PUSHL #1 + 4201 
00000000" EF oF PUSHAB —— : 
000000006 00 ‘ Fe 135 CALLS #3, DBGSNMATCH : 
09 9 E 146 BLBS RO. 208 : 
DD 0014 PUSHL R + 4203 
000000006 00 1 FB 0014 CALLS #1, DBGSSYNTAX, ERROR : 
4004 F 8B 00152 208: PUSHR #*M<R2,SP> : 4207 
000000006 00 02 FB 0015 CALLS #2, DBGSNSAVE_DECIMAL_INTEGER : 
3 D5 00150 TSTL Ife + 4208 
15 0015F BLEO 1 : 
000003E8  aF 6E 01 00161 CMPL size. #1000 ; 
1¢ 15 00168 BLEG $ F 
E DD 0016A 218 PUSHL SIZE + 4210 
1 DD 0016¢ PUSHL #1 : 
00028A72 BF DD 16e PUSHL #166514 ; 
000000006 00 ; Fe 174 CALLS #3, LIBSSIGNAL ; 
1 178 BRB 238 + 4133 
é DD 0017D 228: PUSHL R > 4219 
000000006 00 Fe 17F CALLS #1, DBGSSYNTAX_ERROR ; 
FEBC 31 001 238: BRW 1$ : 4137 
17 6 £9 00189 24$: LBC GENERATE. FLAG, 25$ + 4230 
1 bp 18C PUSHL @ ; 
00000000" EF 9F 001 PUSHAB DBGSCS_CR ; 
DD 001 PUSHL R : 
000000006 9 FB 00196 CALLS #3, DBGSNMATCH : 
£9 001 BLBC—E—s«RO F 
B 1 DO 001A MOVL #1, GENERATE_ALL_FLAG ; 4 
3 D4 OO1A3 25% CLRL  FLAGWORD : 4 
0 A FO OO1A INSV REFRESH FLAG, #0, #1, FLAGWORD > 4 
1 9 FO OO1AA INSV CLEAR FCAG, #1, #1, FLAGWORD > 4240 
2 B FO OO1AF INSV GENERATE_ALL_FLAG, #2, #1, FLAGWORD > 6241 


<2 


os 


7 
1-5 AX-11 Bliss-3 P 52 
ease t88e FSi FF:2) | HONENS Bhi Sbacechees oss. 1 age 475 
NSV ¢ RATE_FLAG, # fl, FLAGWORD : 426 
; ; f 85 wey in FLAG, nt ay LAgwoRo : 4 2g 
5 F NSV RAR “FLAG as. a D + 6266 
4 F cs NSV FLAG PP in’ LP CACUORD + 4265 
7 F ¢ NSV REMOVED dint: a?, ai, FLAGWORD : 6 46 
0 § r 5 INSv ae até, #i6, FLAGWOR : 4 4 
6 ‘i F CALL GSGET_TEMPMEM : 
once A D DB MOVL FLAGuORD 4TADVERB_NODE + 4269 
o 2 oC 8S BS Cores movt VERE, NODE &(R3) = 
01 a £9 ff BL aC REFRESAY FLAG, 268 ; 4257 
01 58 EB 268: — BLBC © GENERATE_ALL_FLAG, 278 ; 
57 D EF 27%: CLRL §_ NOUN_NODE : $6 
55 08 AC OD Fi MCOML SET FLAG, RS + 4275 
a eee”) Oat tte : 3585 
9s 08 AC €E9 001F9 BLBC = SET_FLAG, 298 3 4269 
A 01 DO 001FD MOVL #1, "KIND ; 
AE BE S858 278 Sy GehcaaT SS BR 
0000v CF 6 F 05 CALLS £?, <Paase 7 ESPLAY NAME : 
4 6 D OA MOVL RO. NAMEPT : 
0 0D PUSHL @# + 4282 
00000000' EF OF PUSHAB DBGSCS_AT : 
: DD 00215 PUSHL R : 
000000006 00 : F 17 CALLS #3, DEGSNMATCH : 
66 0€ 1E BLBC * 31$ : 
01 1 PUSHL > 4291 
00000000° FE ; PUSHAB DBGS$CS_LPAREN ; 
1)) PUSHL é 
000000006 00 : F CALLS 3. DBGSNMATCH ; 
” 04 AE 5 SL SHAS RO, : 4296 
OC AE OF PUSHAB (BEG ; 
146 AE OF PUSHAB RLEN : 
ae a a : 
0000v CF 05 FB 43 CALLS #5, PARSE_WINDOW_PARAME TERS : 
04 AE 0D 0024 PUSHL CLEN : 6295 
OC AE DD 00248 PUSHL (BEG ; 
a a a : 
£482 ct 4 F 4 CALLS #4, DBGSSCR_CREATE_TEMP_WINDOW : 
. ? BRO” Hy vei: £4291 
: HL OR : 6305 
0000v CF ¢ H ae CALLS #1, PARSE_WINDOW_NAME : 
: ® bb 0056 Push UNAMEPTRE ; 4306 
F4D5 cf gi fF 6A CALLS #1, DBGSSCR_LOOKUP_wINDOW : 
4 g p 6 MOVL RO. WPTR pan 
4 2 BNEO > 630 
36 DD 00274 PUSHL  WNAMEPTR : 
1 DD 00276 PUSHL #1 : 
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000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


00 00028A6A 
POS 


01 
00000000° 


00000000' 
00000000° 


5A 
00000000° 

$9 

1 


5A 


38 


00000000" 


00000000° 


00000000' 


29 


00 
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35$: 


#166506 
+ LIBSSIGNAL 


3 
SET FLAG, 338 
3152, -(§p) 
ai 
“9 
#10, DW_INDEX, RO 
#4, DOGSSCR_CREATE_TEMP_wINDOW 
Oy INDEX 
¢s 
#1, OW_INDEX 
Dy_ INDEX 
as 
#3, DBGSNMATCH 
R0 a 
#1, KIND 
37$ 
#2 
pean 
#3, DBGSNMATCH 
RO. #1 


3 

. . KIND 
DBGSCS_LPAREN 
a5, poqeenren 
. . 368 

#1, DBGSSYNTAX_ERROR 
368 

r) 

praca: 


#3, OBGSNMATCH 
RO, #1 


#3, KIND 
DBGSCS_LPAREN 
, REGSNMATCH 
$ 
-(§P) 


CONTENT _PTR 
i DBGSNSAVE _BREAK_BUFFER 
g 


3 


53 
) 


st 
4321 


4322 


4334 


4335 
4340 


2348 


4345 


“350 


2339 
4359 


aie 


er 
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00000000" €F or PUSHAB p GSCS_REGISTER ; 
000000006 90 F CALLS #3, DEGSNMATCH : 
? CMPL RO, # : 
BNEG §60s«398 : 
5A 4 0 MOVL #4, KIND + 6367 
9 7 pO 39$ ROVE NOUN_NODE, OLD_NOUN_PTR : 4 26 
000000006 99 F CALLS #1, DBGSGET_TEMPMEM : 
g ) MOVL R ¥ 3 
67 D MOVL §- NAMEPTR, ~ (NOUN_NODE) + 4378 
o¢ A? 4 D MOVL § WPTR, 12(NOUN_RODE) + 4379 
10 A? AD MOVL KIND, 16(NOUN"NODE) + 4380 
14 A? 4 AED MOVL CONTENT PTR, 20(NOUN_NODE) : 4381 
5 p iste OLD_NOUR_PTR : 4382 
08 a3 ? 00 9 MOVL NOUN NODE , 8(R3) + 4384 
08 a9 F D 6 F 40$: MOVL NODE, 8(OLD_NOUN_PTR) : 4387 
2 B5 00 93 41$: STW  (R2) + 439% 
4 13 0039 BEQL = 43 : 
1 pd 0397 PUSHL #1 + 4395 
00000000" EF 0399 PUSHAB DBGSCS_CR : 
: DD 0039F PUSHL R : 
000000006 00 p FB O3A1 CALLS #3, DEGSNMATCH : 
20 0 €8 003A8 BLBS RO. 438 : 
01 po O3A8 PUSHL @# : 43% 
00000000' EF F 00 Ap PUSHAB DBGSCS_COMMA : 
2 DD 0038 PUSHL : 
000000006 00 03 FB 00385 CALLS #3, DBGSNMATCH : 
09 20 8 9038¢ BLES RO. 42S ; 
2 DD O38 PUSHL R : 4398 
000000006 00 4 FB 003C1 CALLS #1, DBGSSYNTAX_ERROR : 
FE2A 3 003¢8 42s: BRW 28$ + 4265 
4 003CB 43$: RET + 4407 
; Routine Size: 972 bytes, Routine Base: DBGSCODE + 2432 
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GLOBAL ROUTINE DBGSSCR_PARSE _SAVE_CMD(INPUT_DESC, VERB_NODE): NOVALUE = 


FUNCTION 
This routine parses the SAVE command. It accepts a command Line 
string descriptor as input and produces a Verb Node for the parsed 
SAVE command as output. That Verb Node and its attached Noun Node 
list later serve as input to DBGSSCR_EXECUTE_SAVE_CMD which actually 
executes the command. 


INPUTS 
INPUT_DESC - A strin descriptor pointing to the input Line betas 
parsed. The descriptor is assumed to be pointing to the 
first character after the SAVE keyword. 


VERB_NODE - A pointer to the Verb Node to be built up for the command 
being parsed. 


roy oY oY ot ot ot ot 


| ae ek de ee ee ee 


OUTPUTS 
INPUT_DESC = The input String descriptor is updated to point to the 
first character after the end of the command. This normally 
means that the input string is exhausted. 


VERB_NODE = The passed-in Verb Node is filled in so that it and its 


MIMININMININID 2 2 OO Ss 
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4431 attached Noun Nodes contains all information picked up 
ret} during the parse of the SAVE command. 
31 44 
; 4434 
4435 BEGIN 
; MAP 
INPUT_DESC: REF BLOCKC,BYTE), ! Pointer to input ete ing coseripter 
337 4439 VERB_RODE: REF DBGSVERB_NODE; ! Pointer to input Verb Node 
335 tees 


LOCAL 
DISPTR: REF DBGSDISP_ENTRY, ! Pointer to Screen Display Entry 
NAMEPTR: REF VECTORC BYTE), ! Pointer to current display name 
NOUN NODE: REF DBGSNOUN NODE, ! Pointer to the current Noun Node 
OLD_ROUN_PTR: REF DBGSNOUN_NODE;! Temporary Noun Node pointer 


OUEWN—O 
= 
™ 
= 
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! Loop to pick up all the qi splay SAVE specifications. Each such specifi- 
! cation is of the form ‘disp! AS disp2", where disp! is the enjet ing dis- 
! play to be saved and disp2 is the new display to be created with the same 
contents as displ. The SAVE specifications are separated by commas. 


NOUN_NODE = 0; 
WHILE TRUE DO 
BEGIN 


AAARAANAAEE EEE EEE EE 


! Pick up the name of the existing display to be saved (displ) and make 
} sure there is such a display. 


NAMEPTR = PARSE_DISPLAY_NAME(.INPUT_DESC, TRUE); 
DISPTR = DBGSSCR_LOOKUP"DISPLAY( .NAMEPTRS; 
IF .DISPTR EQL O-THEN STGNAL(DBG$_NOSUCHDISP, 1, .NAMEPTR); 
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16-Sep 4 AX-11 Bliss-32 v4.0-74 
14-Sep- =1383 95: #9: 4 DEBUG. SRC seaeche N.8 O35: 1 
' Scan past the AS Seyyere and pick up the name of the new display 
to be created (disp2) 
if NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_AS, 2) 
DBGSSYNTAX_ERROR(. INPUT_DESC); 
NAMEPTR = PARSE_DISPLAY_NAME(.INPUT_DESC, FALSE); 
| Sees and build a Noun Node for this SAVE specification. ihen 
add it to the Verb Node's Noun Node chain. 
bu wt ox = 
NOUR_NODE Gécet RERORY (DBGS« NOUN_NODE_SIZE); 
NOUN NODE Dee L_NOUN_ VALUE -DISPTR; 
€ C(DBGS$L-~NOUN~ VALUE = * NAMEPTR; 
Nl D NOUNCP PTR EQL~0 
VERB_NODECDBGSL_VERB_OBJECT_PTR] = .NOUN_NODE 
LSE 
OLD_NOUN_PTRCDBG$L_NOUN_LINK] = .NOUN_NODE; 
! If we find a comma next, we loop for the next SAVE specification. 
: ; Otherwise, we exit the SAVE specification loop. 
it NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_COMMA, 1) THEN EXITLOOP; 
END; ! End of loop over SAVE specifications 
: The SAVE command is fully and successfully parsed. Now return. 
RETURN; 
END; 
OOFC 00000 ENTRY paGSSCR_ PARSE _SAVE_CMD, Save R2,R3,R4,R5,- 
57 000000006 99 9€ 0000 MOVAB DBEsMRATCH, R? 
04 000 CLRL NOUN_N 
53 06 AC eS itd MOVL jurut DESC, R3 
g. 8 Be 18: PUSHL 
3 BD 0011 PUSHL a 
0000v cf FB 13 CALLS . PARSE _DISPLAY_NAME 
5 1) 1 MOVL 4 , NAMEPTR 
0D 18 PUSHL 
F 20C f 9} fe Ba i8 CALLS possscr LOOKUP _DISPLAY 
6 0 00 0002 MOVL 4 DISP 


3; 4408 


4454 
4462 


4463 


Be Be Be Be Be Ss Be Ge Be Se Se Ge See Se Ge Fe Fe Se Ge Ge Se Fe Se Se FHS Se Fe Se oe oe Se BF Se Se Se FHSS Se SF Se Se Se SESH Se Se Se Se Se Se SESH Ose es 


DBGSCREEN 16- 
voreo 1228 
11. 12 000 
1 is aun 
4 DD 9 
00028A62 F DD 00028 
000000006 00 3 FB 38 1 
0 pp 0038 2$: 
00000000' gf F QOOSA 
3 Dd 0004 
67 9 4 004 
09 E8 0004 
55 DD 00048 
00000000G 00 gt FB QOO4A 
3 D4 00051 3$: 
535 DD 00053 
0000v CF 02 FB 00055 
55 50 DO QO05A 
54 52 00 0005D 
04 DD 00060 
000000006 00 01 FB 4483 
52 50 DO 0006 
62 56 DO 0006C 
oc 3 A2 55 DO 0006F 
54 D5 00073 
OA 12 00075 
50 08 AC 00 00077 
08 A0 52 00 00078 
04 11 0007F 
52 DO 00081 4 
01 DD 00085 5 
EF 9F 00087 
53 DD 0008D 
03 FB OOO8F 
50 ? 00092 
FF77 31 00095 
04 00098 6$: 
; Routine Size: 153 bytes, Routine Base: DBGSCODE + 27FE 


| 
| 
| 08 AG 
00000000' 
67 
03 
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Sep-1984 18:17:48 EDeeuG. SRCSDBGSCHEEN.O50: 1 


2$ 

say 
#166498 

#3, LIBSSIGNAL 


eat 
#3, DBGSNMATCH 
3$ 


’ 


=($) DBGSSYNTAX_ERROR 


*, PARSE_DISPLAY_NAME 
NOUN_NODE, OLD_NOUN_PTR 
"1, DBGSGET MEMORY 
DISPTR, TNOUN_NODE) 
NAMEPTR, ND<NOUN. NODE) 
OLD. NOUN_PTR 


VERB_NODE, RO 
NOUN-NODE, 8(RO) 


5 

NOUN.NODE, 8(OLD_NOUN,PTR) 
DBGSCS_COMMA 

#3, DBGSNMATCH 

RO, 6$ 


Page 157 


Pee Se Se Be Se Se Be Ge Be Se Se Se Se Ge Be Be Fe Fe Fe Fe Fe Fe Se Ge Se Se Se Ge Be Se Se Be Be Be 


(32) 
4464 


4470 


4504 


ossinie 


eee 
Be Se Se Be Se Bs Oe Se Be Se Be Se Se Se Be Se Se Ss Ge Se Ge Se Be Ft Ge Ge FH Se Be Se Ss Os Oe Oe SH Be Se Se BH SH Ss Se SF Se Oe Se HSH Ss Se Oe Oe Se SHE Seeses 
= 
= 
Ww 
im 


| 
| 
| 
| 
| 


g 
yE-Sep-1986 02:80:21 YAN=11 BLigs-32 ve. 0-742 Page 158 


LOBAL ROUTINE DBGSSCR_PARSE_SCROLL_CMD(INPUT_DESC, VERB_NODE): NOVALUE = 


FUNCTION 
This routine parses the SCROLL command. It accepts a command Line 
tay descriptor as input and produces a Verb Node for the parsed 
SCROLL command as output. That Verb Node and its attached Noun 
Node later serve 1s input to DBGSSCR_EXECUTE_SCROLL_CMD which 
actually executes the command. 


INPUTS 
INPUT_DESC = A etring descriptor pointing to the input Line oom 
parsed. The descriptor is assumed to be pointing to the 
first character after the SCROLL keyword. 


VERB_NODE - A pointer to the Verb Node to be built up for the command 
being parsed. 


OUTPUTS 
INPUT_DESC = The input fh descriptor is updated to point to the 
first character after the end of the command. This normally 
means that the input string is exhausted. 


VERB_NODE - The passed-in Verb Node is filled in so that it and its 
attached Noun Node contains all information picked up 
during the parse of the SCROLL command. 


Creme meme mmc mre ee memes masa ese esecesasesasasaG) 


BEGIN 
MAP 

INPUT_DESC: REF BLOCKC,BYTE), 

VERB_NODE: REF DBG$VERB_NODE; 
LOCAL 

AMOUNT 

DIRECTI 


Pointer to input gerne descriptor 
Pointer to input Verb Node 


Amount to scroll 5 gg tee display 

ON Direction to scroll specified display 
DISPID: REF DBGSDISP_ENTRY, Pointer to Screen Display Entry 
NAMEPTR: REF VECTORC BYTE), Pointer to ASCIC name of display 
NOUN_NODE: REF DBGSNOUN_NODE; ! Pointer to Noun Node 


AUS WN OS ODNAMAES WN OS ODNAU EWN O OONOUE WN" ODONOu 


: Initialize the default direction and scrolling amount. 
DIRECTION = DBGS$K_SCROLL_DOWN; 
AMOUNT = -1; 


! /directionl: amount) or /TOP or /BOTTOM. ualifier thus indicates 
the scrolling direction and amount. 


iF DBGSNMATCH(. INPUT _DESC, DBGSCS_SLASH, 1) 
BEGIN 


! Parse the SCROLL command qualifier (if ony). The qualifier has the form 
eq 


Foy oy oy oF? oF oF ot ot ot ot ot ot et tek kt et et i ee kk ek ek ek ek el ek ek ek kk ke ee ee kk ek ke et 
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| d. 8 
DBGSCREEN 16-Sep-1984 02:30: AX-11 Bliss-32 v4.0-74 Page 159 
MOS 000 12-8 08- 1 3be 05:70:24 DEBUG. GRC TDBCSCREEN. B39; 1 . (33) 
$ red 1285 Pick up the qualifier name (the scrolling direction). 
3; 446 4364 SELECTONE TRUE OF 

3 44646 4565 SET 

3 4465 £298 

3; 44666 456 

: 4467 4568 ' Check for SCROLL/UP:n qualifier. 

: 4468 4569 ‘ 

3: 4469 4570 CDBGSNMATCH(. INPUT DESC, DBGS$CS_UP, 1)]: 

; 4470 4571 DIRECTION = DBGS$K_SCROLL_UP? 

3; 44671 1258 

3; 447 457 

3 4467 4574 ' Check for SCROLL/DOWN:n qualifier. 

3: 4474 4575 : 

3: 4475 4576 COBGSNMATCH(.INPUT_DESC, DBG$CS_DOWN, 1)): 

> 4476 4577 DIRECTION = DBGS$K_SCROLL_DOON; 

3 4477 4578 

3; 4478 4579 

3: 4479 4580 !' Check for SCROLL/LEFT:n qualifier. 

3; 4480 4581 : 

3 4481 t25¢ COBGSNMATCH(.INPUT_DESC, DBGSCS_LEFT, 1)]: 

> 448 458 DIRECTION = DBGSK_SCROLL_LEFT; 

3: 448 4584 

3: 4684 4585 

: 4485 4586 ' Check for SCROLL/RIGHT:n qualifier. 

3: 4686 4587 ‘ 

; 4487 4588 COBGSNMATCH(.INPUT_DESC, DBGSCS_RIGHT, 1)]: 

> 6488 4589 3 DIRECTION = DBGS$K_SCROLL_RIGHT; 

3 4489 4590 3 

; 4490 4591 3 

: rere 1238 ; Check for SCROLL/TOP qualifier. 

3; 449 4594 CDBGSNMATCH(.INPUT_DESC, DBGSCS_TOP, 1)]: 

: 4694 4595 4 BEG 

3; 44695 4596 4 DIRECTION = DBGSK_SCROLL_UP; 

3 4496 4597 4 AMOUNT = 65001; 

3: 4497 4598 ; s 

3; 4698 4599 

3; 4499 4600 3 

3 t's ree ; Check for SCROLL/BOTTOM qualifier. 

> 4502 2608 CDBGSNMATCH(.INPUT_DESC, DBGSCS_BOTTOM, 1): 

: 4503 4604 4 N 

> 4504 4605 4 DIRECTION = DBGSK_SCROLL_DOWN; 

3; 4505 4606 4 AMOUNT = 65001; 

; $208 4607 é 

3; 450 4608 

3; 4508 4609 . 

3 1344 $8i9 If the qualifier is none of the above, we have a syntax error. 
3 6511 t6i¢ COTHERWISE): 

8 $216 461 DBGSSYNTAX_ERROR(. INPUT_DESC); 

3; 451 4614 

3 4514 4615 TES; 

3: 4515 £618 

; 4516 461 
3; 451 4618 ' For all qualifiers except /TOP and /BOTTOM we now pick up the 
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scrolling amount if it is specified. 
if .AMOUNT EQL -1 
THEN 


DBG$CS_COLON, 1) THEN TRUE 


BEGIN 
IF (IF DBGSNMATCH(. INPUT DESC 
ELSE D (,INPOT_DESC, DBGSCS_EQUAL, 1)) 


(, 
BGSNMATCH(. 


BEGIN 
DBGSNSAVE PECIAA, A SLAP LS | AMOUNT); 
IF AMOUNT GTR 65000 THEN AMOUNT™= 65000; 
END; 
END; ! End of code to pick up qualifier 


! Now pick up the name of the oreee.y to be scrolled. If no display name 

! is specified, use the default scrolling display. If a name is epee tte, 
' convert that display name to a Display ID and make sure that such a 
display exists. 


if DBGSNMATCH(. INPUT_DESC, DBGSCS_CR, 1) 


DBGSSCR_CURDISP SCROLL; 
EQL 


= o L 
SPI1D 0 THEN SIGNAL (DBG$_NOSCROLL); 


E_DISPLAY_NAME(.INPUT DESC, TRUE); 
CR_LOOKUP-DISPLAY(.NAMEPTR); 
THEN STGNAL(DBG$_NOSUCHDISP, 1, .NAMEPTR); 


! If no scrolling amount was specified, we determine the actual scrolling 
amount based on the scrolling direction and the size of the display. 


if .AMOUNT EQL -1 
THEN 


CTION EQL DBGSK_SCROLL_UP) OR 
RECTION EQL DBG$K~SCROLL~DOWN) 
T 


N 
AMOUNT = .DISPIDCDBG$W_DISP_RLEN] - (.DISPIDCDBG$W_DISP_RLENJ-1)/4 


ELSE 
AMOUNT = 8; 


END; 


! Now build the Noun Node to hold the scrolling direction and amount and 
! the specified Display ID. Link it to the Verb Node and then return, 


Vv 
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16-Sep-1984 :3 AX-11 Bliss-32 v4.0-74 Page 161 
14-Sep-1 198 95: 39: 23 DEBUG. SRC ID eeecheen.o39:1 . (3) 
' 
NOUN_NODE = DBGSGET TEMPMEN (DBGSK NOUN_NODE _SIZE_LONG) ; 
NOUN_ NODE [DBG$L_NOUR_V .DISP 
NOUN-NODE [DBGSL “NOUN VALUE Egy: “DIRECT LON; 
NOUN_NODE DBGSL “NOUN_V AMOUNT; 
VERB “NODE CDBGSL -VERB_ OBvECi “PTRI = .NOUN_NODE; 
RETURN: 
END; 
00FC 00000 ENTRY DBGSSCR_ PARSE_SCROLL_CMD, Save R2,R3,R4,R5,-; 4505 
57 000000006 00 9€ 90002 MOVAB LIB$SIGNAL : 
26 00000000° FF 9E 000 MOVAB ODBGSCS yg ; 
55 000000006 9 3 9010 MOVAB D GSNMATCH as”? : 
54 6 DO 0001 MOVL . DIRECTION + 6549 
7E 1 CE OOO1A MNEGL af. AMOUN + 4550 
oN DD 00010 PUSHL + 4557 
6 DD O001F PUSHL R6 : 
53 04 AC DO 00 1 MOVL _‘ INPUT_DESC, R3 ; 
5 DD 00025 PUSHL $ 
65 03 FB 00 7 CALLS #3, DBGSNMATCH F 
03 50 ‘ OO2A BLBS RO, 1$ ; 
00¢5 31 00020 BRW 11§ : 
01 DD 00030 18 PUSHL #1 : 4570 
OD Ad 9F 000 é PUSHAB DBGS$CS_UP ; 
53 0D 000 PUSHL : 
65 g FB 00037 CALLS #3, DBGSNMATCH F 
01 0 D1 O003A CMPLsséRO.. #1 : 
5 if 0030 BNEQ : 
54 1 00 0003F MOVL #1, DIRECTION : 4571 
4 11 00042 BRB 9$ ; 
01 bb 0044 2% PUSHL #1 + 4576 
FF7E ¢ F 00046 PUSHAB DBGSCS_DOWN : 
DD 0004A PUSHL R : 
65 03 FB 0004C CALLS #3, DBGSNMATCH ; 
01 50 01 0004F CMPL SRO. #1 ; 
05 if 90052 BNE F 
54 92 D0 00054 MOVL ae. DIRECTION : 4577 
F 11 0047 BRB 9 : 
01 oD 9 3$ PUSHL #1 > 4582 
Al A6 9F 00058 PUSHAB DBGSCS_LEFT ; 
53 odd 0005 PUSHL : 
65 Q FB 6 CALLS #3, DBGSNMATCH ; 
" 85 $2 0006 ones 
54 83 8 Oss MOVL #3, DIRECTION > 4583 
48 11 00068 BRB 93 ; 
01 po 6D 4$ PUSHL #1 : 4588 
E9 AG OF 6 PUSHAB DBGSCS_RIGHT : 
53 0D ¢ PUSHL R : 
65 2 fo 7 CALLS #3, DBGSNMATCH 3 
01 D1 00077 CMPL ‘wi : 


-——— jetimamatalpdmanestiity 


§ fa 
| DBGSCREEN 16-Sep-1984 02:30: AX-11 Bliss-32 V4.0-74 Page 162 
Woe 12-8 08-19be 95:70:24 DEBUG. SRC JOBGSCREEN.B3 31 . (33 
| 5 12 Q007A BNEQ S$ ‘ 
54 4 p 7¢ MOVL #4, DIRECTION + 4589 
7 7F BRB 9$ ; 
1 0D | 5$: PUSHL #1 + 659% 
09 Ab OF PUSHAB DBGSCS_TOP : 
DD PUSHL R : 
5 FB CALLS #3, DEGSNMATCH ‘ 
1 2 CMPL Ss, @ : 
6 0 BNE ; 
54 1 00 000 MOVL #1, DIRECTION + 45 
13 11 0009 BRB 7$ + 459 
01 +4 94 6$: PUSHL #1 : 4603 
FF68 c F 0009 PUSHAB DBGS$CS_BOTTOM : 
DD 0098 PUSHL R : 
65 Q FB 0009D CALLS #3, DBGSNMATCH : 
01 0 D1 000A CMPL = RO. #1 : 
A if OOA BNEQ : 
54 2 : OOA MOVL #2, DIRECTION + 4605 
6E FDOE9 8F 3¢ O00A8 7$: MOVZwL #65001, AMOUNT + 4606 
09 11 OO0AD BRB 9$ > 6564 
3 DD OOOAF 8S: PUSHL R3 + 4613 
000000006 00 01 FB 00081 CALLS #1, DBGSSYNTAX_ERROR : 
FEFFFFFFE © BF gE D1 00088 9S: CMPL AMOUNT, #-1 + 4621 
4 12 000BF BNEQ =«*'1'1 : 
01 oD 900¢1 PUSHL #1 + 4624 
FF75 £6 OF 00¢3 PUSHAB DBGSCS_COLON ; 
53 OD 900¢ PUSHL R F 
$} 03 Fe 00¢9 CALLS #3, DBGSNMATCH : 
0D 50 €8 000CC LBS 0; 10$ : 
01 DD OOOCF PUSHL : 4625 
83 AG 9F 00001 PUSHAB DBGSCS_EQUAL : 
53 DD 000D4 PUSHL : 
65 03 FB 0006 CALLS #3, DBGSNMATCH : 
19 0 £9 00009 BLBC : ; 
4008 8F BB OOODC 10$:  PUSHR #*M<R3,SP> + 4628 
000000006 00 02 FB 000E0 CALLS #2, DBGSNSAVE_DECIMAL_INTEGER ; 
OOOOFDES BF 6E D} OE? CMPL AMOUNT, #65000 : 4629 
6E FDES rf 3C O00F MOVZWL #65000, AMOUNT : 
1 OD 000FS 11$:  PUSHL + 4642 
FF79 C6 OF OOF PUSHAB DBGSCS_CR : 
53 OD 000FB PUSHL R ; 
65 g FB OOFD CALLS #3, DBGSNMATCH ; 
14 0 €9 001 BLBC =_-«RO._«Y12$ : 
52 00000000" €F DO 001 MOVL DBGSSCR_CURDISP_SCROLL, DISPID + 4645 
0 12 OO10A BNEG 13$ + 4646 
g7 COO2BATA OF Oe OOTt CATS #1) PEBSSIGNAL 
4 if 11 BRB 13§ + 4642 
1 DD 00117 128:  PUSHL #1 > 4651 
3 OD 00119 PUSHL R : 
0000v CF FB 11 CALLS #2, PARSE_DISPLAY_NAME ; 
53 dO 001 MOVL * NAMEPTR : 
DD 001 PUSHL > 4652 
F06B cf gt i 5 CALLS a, DBGSSCR_LOOKUP_DISPLAY ; 
0D ? 12D BNEQ ns + 4653 


-- 
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; dD 
iE 
7 3 fCUr*F 
FRFEFFFFEF $F ; 
. : 
5 
02 ; i 
50 12 : HS 
How i 
. | VF 
6E dO 
0D 
000000006 08 1 08 
6 2 0 
oc Ad 4 0 
10 Ad 6— 00 
51 08 A B» 
08 a’! 5 + 


; Routine Size: 386 bytes, Routine Base: DBGSCODE + 2897 
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C 
NAMEPTR 
#166498 
#3, LIBSSIGNAL 
7 pe 
IRECTION, #1 
RECTION, #2 
18(DISPID), RO 
’ {oI SP10) R1 
m0, Ri, AMOUNT 
a. AMOUNT 
a poBGscer TEMPRER 
DIRECTION, 12TNOUN_NODE) 
16(NOUN_NOBE ) 


UN 
VERB_NODE, R1 
NOUN-NODE, 8(R1) 
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GLOBAL ROUTINE DBGSSCR_PARSE_SELECT_CMD(INPUT_DESC, VERB_NODE): NOVALUE = 


FUNCTION 
vate routine parses the SELECT command. It accepts a command Line 
str ng descriptor as input oe produces a verb node for the parsed 
SELECT command as output. That verb node and its attached noun node 
spter ooows as input to EXECUTE _SELECT_CMD which actually executes 

@ command. 


INPUTS 
INPUT_DESC = A string descriptor pointing to the input Line being 
parsed. The descriptor is assumed to be pointing to the 
first character after the SELECT keyword. 


VERB_NODE = A pointer to the verb node to be built up for the command 
being parsed. 


OUTPUTS 
INPUT _DESC = The input eer ian descriptor is updated to point to the 
first character after the end of the command. This normally 
means that the input string is exhausted. 


VERB_NODE - The passed-in verb node is filled in so that it and its 
attached noun node contain all information picked up during 
the parse of the SELECT command. 


BEGIN 


INPUT DESC: REF BLOCKC,BYTE),  ! Pointer to input string descriptor 
VERB_RODE: REF DBGSVERB_NODE: ' Pointer to input verb node 


Pointer to Screen Display Entry 
Pointer to ASCIC name of display 
Flag set if no qualifiers are present 
Pointer to Noun Node 

The selection kind bits 


CAL 
DISPID: REF DBGSDISP_ENTRY, 
NAMEPTR: REF VECTORC BYTE), 
NO _QUALIF I 


NODE: REF DBGSNOUN_NODE, 
SELECT_BITS: BITVECTORC So. 


: Loop over all the qualifiers specified on the command. 


SELECT BITS © 05 a 

s 7 

UNTLE’DAGENMATCH( INPUT DESC, DBGSCS_SLASH, 1) DO 
NO_QUALIFIERS = FALSE; 


! Now determine which spe 
sponding selection kind 


SELECTONE TRUE OF 
SET 


c ic qualifier we have and set the corre- 
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: Check for and process the /HISTORY qualifier. 


a Of SEERA SEA 
SELECT 8] UE; 


! Check for and process the /INPUT qualifier. 


tar fol, 8686. DEVELOPER(7] THEN FALSE ELSE 
(INPUT D DESC. _bbeses. INPUT, 1)J: 
sea tt "ails 


Check for and process the /OUTPUT qualifier. 

(DBGSNMATCH(. INPUT_DESC, DBGSCS_OUTPUT, 1)): 
SELECT_BITSC2)"= TRUE; 

} Check for and process the /SCROLLING qualifier. 

CDBGSNMATCH(. INPUT DESC, DBGSCS_SCROLLING, 2)]: 
SELECT_BITS(3)"= TRUE; 

: Check for and process the /SOURCE qualifier. 

{DBGSNMATCH(. INPUT DESC, DBGSCS_SOURCE, 2)]: 
SELECT _BITS(4)~ = TRUE; 

Any other qualifier constitutes a syntax error. 


COTHERWISE): 
DBGS$SYNTAX_ERROR(. INPUT_DESC); 


TES; 
END; ! End of qualifier loop 


: If no qualifiers were specified, assume that /SCROLLING was meant. 
if .NO_QUALIFIERS THEN SELECT_BITSC3) = TRUE; 


k up the name of the selected fisoloy and convert it to a Display ID. 
no display name is specified, leave the Display ID as zero. 


GiNMATCH(. INPUT _DESC, DBGSCS_CR, 1) 


nlc Oo 
=" 


R = PARSE DISPLAY _NAME ( 310 wy 


1 T_DESC 
D = DBGSSCR_LOOKUP“DISPLAY( .NAREPTRS; 


cfocccr 
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| DBGSCREEN 16-Sep-1 :30: AX-11 Bliss-32 v4.0-74 Pp 66 
Yoe=000 Vexgeb-lobe $S:it:es — Eoeaug. srcSosascneen.o%9; 1 age 30 
3 4699 F .DISPID EQL 0 THEN SIGNAL(DBGS_NOSUCHDISP, 1, .NAMEPTR); 
; of IF -D1SP DEDBGSY_DISP_REROVES THER SIGNAL (DBG$_61SNOTSEL); 
3 47 
3; 47 5 
3; 467 ! FILL im_the selection kind and the specified Display ID into the Noun 
: of 5 } Node. That completes the Verb and Noun Nodes, and we return. 
3 67 NOUN_NODE = DBGSGET_TEMPMEM(DBGSK_NOUN_NODE SIZE); 
+ 67 NOUNNODE DBGRL NOUR VALUE = .SECECT BITS;~ 
3 47 NOUN_NODE [DBGSL-NOUN_VALUE2) = ,DISPID; 
; 4710 VERB-NODELDBGSL-VERB-OBJECT_PTR] = .NOUN_NODE; 
3 671 RETURN; 
3 orig 
3; 471 END; 
O1FC 00000 -ENTRY DBGSSCR PARSE_SELECT CMD, Save R2.R3,R4,R5,-; 4685 
8 G 00 9E 02 MOVAB LIBSSIGNAL, R8 ; 
900000" EF OF MOVAB beeset DEVELOPER. ™ ; 
heeeeeeell 0:1 ME a oR ‘gp 
06 ac 00 f VL _—sINPUT_BESC, R? : 6731 
1 DD 5 1$ PUSHL #1 : 
0044 8F 8B 7 PUSHR #*M<R2,R6> : 
65 3 Fe B CALLS #3, DBGSNMATCH : 
03 0 f E BL8S ~=—s«RO, 2$ : 
008 1 1 BRw 13 F 
3 4 28: CLRL NO QUALIFIERS : 4733 
5 TST RaGSGL_DEVELOPER ; 4745 
4 19 BLSS $ : 
0 04 A CLRL =. «RO : 
OA 1 C BRB 4$ ; 
1 OD 3$: PUSHL #1 3; 4746 
93 Ab OF PUSHAB DBG$CS_HISTORY : 
52 00 PUSHL ; 
65 Q FB CALLS #3, DEGSNMATCH : 
01 4$: CMPL) =SsRO, 3 4745 
83 B BNEQ 6 3 
54 BISB2 #1, SELECT_BITS : 4747 
bs 5%: BRB 1$ 5 
9 és: TSTB DBGSGL_DEVELOPER : 4752 
4 1 BLSS ; 
0 04 6 CLRL = RO F 
A 11 BRB as ; 
1 OD A 7% PUSHL #1 > 4753 
98 A6 OOF C PUSHAB DBGS$CS_INPUT ; 
DD F PUSHL R : 
65 FB AI CALLS #3, DBGSNMATCH ; 
1 p 64 8S CMPL RO, # 3 4752 
67 BNEQ 9 3 
54 8 69 BISB2 #2, SELECT_BITS > 4754 
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SHR ABBE) WMG itself iat 
Pe HRA AND tars 
SCREEN 1 -# ’ ; 
“V0 87 oD 98: Rs > pet 
A Pu TCH : 
| i wee ay i reo 
5 1 TS ; 
81 61582 a, SELECT 81 3 4765 
8 > 
4 a ; 
’ p 108: PUSIAB > papas 
A Pu AT : 
aR ratte 08 
3 NEG 1 Ts 
01 9 ; 81882 #e. SELECT_B1 3 4771 
54 ; F BUSHL 2 
e be MNS: BUSHAB DAGSCS_ SOURCE 
AG OF PUSHL Re TCH ; 
z ak CT ee Lan 
65 01 NEQ 1 ITS : 
01 05 18 B1s82 #16, SELECTS : wn 
? A$ bs 126: CALLS. 1, DBGSSYNTAX_ERROR : 673 
FB BRB SS ERS, 148 : 4793 
000000006 00 e8 i 38: Bbc aE Bits : 4795 
148: ; 
i 5 BS Baie PUSHAB DRGSCS_CR 
FF79 F PUSHL Re DBGSNMATCH . 4797 
ie Pe gLBs, RO. te$ 
65 80 PUSHL I . ; 
32 1 0D CALLS #9, PARSE_DISPLAY_NAM : 4798 
3 DD CALLS = #2, PTR ; 
F MOVL RO, NAME : 
— 4 CALLS #1. DBGSSCR_LOOKUP_DISPLAY St 
: ae movt fy, bisPib : 
F E Q 1 e 
PU * 4800 
; +4 os PUSHL #166498. 3 48 
O28A62 BF DD B00E7 CMS eR fT IBSS TOM : 
3° 3 £9 00rd 158: PUSHL #166546 NAL 5 cont 
a ooozense BF DD +) CALLS = #1, LIBSSIG = poe 
FB HL MPM 
at Sis gto a 
emnoapicn eh 3 BO 001 MOVE VERB-NODES Re” 
6 3 0D MOVL - B(R1) 
A DO 001 L  NOUNNODE, 
ere 08 35 BB Bott: HOV . 
08 Al 


BEEBE yt a es I Ma oes 


<o | 


iSoseoct9ge O2:50:2) Yauct] euingcsz v4.74 age 68 
5 RET ; 4813 
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WecSep-t9be $S:47:65 | EoeauG. SacHbBGSCREEN.69; 1 Page 58) 
LOBAL ROUTINE DBGSSCR_PARSE_SETTERM_CMD(INPUT_DESC, VERB_NODE): NOVALUE = 


FUNCTION 
This rout tne parses the SET TERMINAL command. It accepts a command 
Line string descriptor as input and produces a Verb Node for the 
command a output. That Verb Node and its attached Noun Node Later 
serve as Oput to EXECUTE SETTERM_CMD, which actually executes the 
command. The SET TERMINAL command accepts no parameters and only 
one qualifier, the /WIDTH:n qualifier, which is mandatory at present. 


INPUTS 
INPUT_DESC = A string descriptor pointing to the input Line being 
parsed. The descriptor is assumed to be pointing to the 
first character after the SET TERMINAL keywords. 


VERB_NODE = A pointer to the Verb Node to be built up for the command 
being parsed. 


OUTPUTS 
INPUT_DESC = The input her descriptor is updated to point to the 
first character after the end of the command. This normally 
means that the input string is exhausted. 


VERB_NODE = The passed-in Verb Node is filled in so that it and its 
attached Noun Node contain all information picked up during 
the parse of the SET TERMINAL command. 


el a ia ta ath Dae el ee eh ee et ee ee ed“) 


FP AAWMAA AAA AAAI PONPONP PNP 2 2 OO 


WN 9 OONOA UNE WN 9 OONC VE WN“ OOONOUS 


BEGIN 


MAP 
INPUT_DESC: REF BLOCKC,BYTE], |! Pointer to input gtr ing descriptor 
VERB_RODE: REF DBGSVERB_NODE; ! Pointer to input Verb Node 
LOCAL 
NOUN NODE: REF DBGSNOUN_NODE,  ! Pointer to Noun Node 
29 WIDTA; ! The parsed terminal width 
32 : Check for and parse the mandatory /WIDTH:n qualifier. 
36 iF NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_SLASH, 1) 
28 DBGSSYNTAX_ERROR(. JNPUT_DESC); 
rt wer DBGSNMATCH(.INPUT_DESC, DBGSCS_WIDTH, 1) 
é DBGSSYNTAX_ERROR(. INPUT_DESC); 
64 If NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_COLON, 1) 


BEGIN 
IF NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_EQUAL, 1) 
DBGSSYNTAX_ERROR(. INPUT_DESC); 


Rett 
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a 
| DBGSCREEN 
v04= 


0 
3; 477 4871 END; 
; e438 7838 
: aete rh to | Pick up th ified terminal width 
° cK U e spe € ermin Wi 
: 4776 4875 i force i Fe to b be fn the range $5 142.5 
: ry ah rte the new width in the Noun Node, AL In, 
5 rh AG rt th nee Xe, TN IN A pee etd ie DESC, WIDTH); 
: 4781 4880 NOUN_NODE steer TEMBMEN CDBGSK: NOUN_NODE SIZE); 
: o78e 4881 NOUN_NODE DBGSL -NOUR_VALUE] = 
3 478 488¢ VERB “NODE CDBG$L_VERB_OBJECT _PTRI = “NOUN. NODE ; 
3: 4784 488 RETURN; 
3; 4785 4884 
; 4786 4885 1 END; 
003C 00000 eENTRY 
Vv 
55 00000000G 00 9€E 00002 MOVAB 
54 00000000° EF 9€ 00009 MOVAB 
33 ooooonns ap Pe aaa Bae 
01 DD OOO1A PUSHL 
54 DD O00IC PUSHL 
52 04 AC DO OOOTE MOVL 
3 DD 00022 PUSHL 
63 03 FB 00024 CALLS 
05 50 €8 00027 LBS 
52 DD O002A PUSHL 
65 01 FB 0002C CALLS 
01 DD OO002F 1$ PUSHL 
10 A& 9Y9F 00031 PUSHAB 
3 DD 00034 PUSHL 
63 03 FB 00036 CALLS 
05 50 £8 00039 LBS 
52 0D Oot PUSHL 
65 01 FB OO035E CALLS 
01 DD 00041 2$: PUSHL 
FF75 C4 OF 00043 PUSHAB 
6 DD 00047 PUSHL 
63 9 4 Beode CALLS 
12 0 €8 0004C LBS 
01 DD 0004F PUSHL 
83 A&G 9F 00051 PUSHAB 
6 DD 00054 PUSHL 
63 9 4 Boas CALLS 
05 0 €8 0005 BLBS 
52 DD 0005C PUSHL 
65 1 FB QOOSE CALLS 
4004 F 6B 00061 3$: PUSHR 
aerate. gO Bie gaits 
00000084 =s BF $F D1 Bees CMPL 
04 15 00076 BLEQ 


and check it for uot torte. 
Then allocate a Noun Node, store 


AX-11 BL 
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1 i $aaze V4.0-74 
3 DEBUG. RC} DBGS 


CREEN.B32;1 


(We 


DBGSSCR_PARSE_SETTERM_CMD, Save R2,R3,R4,R5 
BEGSSYNTA X_ERROR, RS ~ 


’ 


R4 

pBPUT DESC, R2 
#3, DBGSNMATCH 
0, 1$ 


R 

#1, DBGSSYNTAX_ERROR 
DBG$CS_WIDTH 

#3, DBGSNMATCH 

0, 2$ 


R 
#1, DBGSSYNTAX_ERROR 
DBGS$CS_COLON 
#3, DEGSNMATCH 

$ 


1 
~ 
#3, QBGSNMATCH 


DBGSSYNTAX_ERROR 
AFF SP> 
#2. D “DBGENSAVE _DECIMAL_INTEGER 
NO. e Ho” 
ts 
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9° (35) 


4814 


; 4856 


; 4858 


4860 


4862 
4864 


4867 


4869 
4878 
4879 


p8 


poe 


be 

¥ 50 84 F OA 
00000048 F 0 D1 
4 18 
50 48 F 9A 
| 6E 0 pO 
8 DD 

000000006 08 1 F 
6— D 
1 08 aC D 
08 Ai 50 00 
04 


; Routine Size: 161 bytes, Routine Base: DBGSCODE + 2B2F 
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4.074 
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a R 
#4 578° 


#72, RO 
RO. WIDTH 


DBGSGET TEMPMEM 
Hoe (NO OUR.N NODE) 
VERB_NODE, 
NOUN=NODE, B(R1) 
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(35) 


. 9 
DBGSCREEN Je~senn 1986 0g: 30:0) AX-11 Bliss-32 Fh gh 
v04- 14-Sep-1984 12:17: DEBUG. SRC JDBGSCREEN.B32;1 
3 cree : 6 ! GLOBAL ROUTINE DBGSSCR_PARSE_SETWIND_CMD(INPUT_DESC, VERB_NODE): NOVALUE = 
3; 4790 4888 1 ! FUNCTION 
3; 4791 4889 1! This routine parses the SET WINDOW command. It accepts a command Line 
: 479 4890 1! ae descriptor as input and produces a Verb Node for the parsed SET 
3; 479 4891 1! WINDOW command as output. That Verb Node and its attached Noun Node 
3; 4794 4892 1! later serve as input to DBGSSCR_EXECUTE_SETWIND_CMD which actually 
: 4795 4895 1! executes the command. 
3; 4796 4894 1! 
3; 4797 4895 1 ! INPUTS 
3; 4798 4896 1! INPUT_DESC = A string descriptor pointing to the input Line being 
3; 47 4897 1! parsed. The descriptor is assumed to be pointing to the 
; ret ta08 : first character after the SET WINDOW keywords. 
; 480 4900 1! VERB_NODE = A pointer to the Verb Node to be built up for the command 
; 480 4901 1! being parsed. 
3; 4804 4902 1! 
; 4805 4903 1 ! OUTPUTS 
; 4806 4904 1! INPUT_DESC = The input String descriptor is updated to point to the 
; 4807 4905 1! first character after the end of the command. This normally 
3 re 1 rps : means that the input string is exhausted. 
; 4810 4908 1! VERB_NODE = The passed-in Verb Node is filled in so that it and all 
3; 4811 4909 1! its attached Noun Nodes contains all information picked up 
; 4812 4910 1! during the parse of the SET WINDOW command. 
3; 4813 4911 1! 
3; 4814 4912 1 
3 4815 491 5 BEGIN 
3; 4816 4914 
3; 4817 4915 2 MAP 
; 4818 4916 2 INPUT_DESC: REF BLOCKC,BYTE), ! Pointer to input etring descriptor 
3; 4819 4917 2 VERB_NODE: REF DBG$VERB_NODE; ! Pointer to input Verb Node 
; 4820 4918 2 
3; 4821 4919 § LOCAL 
3; 4822 4920 CBEG, ! Beginning column Location of window 
: 4823 4921 2 CLEN ' Column length (width) of window 
> 4824 4922 § COL_iNFO, ! Encoded column parameters 
3: 4825 4923 NAMEPTR: REF VECTORC,BYTE), ! Pointer to ASCIC window name 
: 4826 4924 2 NOUN_NODE: REF DBGSNOUN_NODE, ! Pointer to current Noun Node 
; 4827 4925 2 RBEG, : Beginning row Location of window 
3; 4828 4926 RLEN ' Row Length (height) of window 
3 rt} 4927 ROW_INFO; ! Encoded row parameters 
; 4830 4928 
3 $83! 4929 
3; 48 $ 4930 ; _ 
3 $e37 $33) Start by picking up the name of the screen window being defined. 
3; 4835 493 NAMEPTR = PARSE_WINDOW_NAME(.INPUT_DESC); 
3; 48 4934 
: 483 4935 
3; 4838 49 ! Next scan past the AT keyword and the opening parenthesis for the 
3; 4839 493 ! window parameters List. After finding the open parenthesis, we 
: rere ret 4 parse all the window parameter values. 
: one rhe IF NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_AT, 2) 
3 4844 4942 DBGSSYNTAX_ERROR(. INPUT_DESC); 
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IF NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_LPAREN, 1) 
DBGSSYNTAX_ERROR(.INPUT_DESC); 

PARSE WINDOW _PARAMETERS(.INPUT_DESC, RBEG, RLEN, CBEG, CLEN); 

! Allocate a Noun Node, attach it to the Verb Node, and fill all the 

window parameters into the Noun Node. Then return. 

NOUN -NODE = DBGSGET cer pte K = NOUN NODE _SIZE_LONG); 


VERB “NODE EDBGSL L_VERB_OBJECT_PTR A _NOBE ; 
NOUN, su. o"OUN “VALUES” z SWAMEPT 
RoW inmocuto> fete 
NOUR, NODECDBGSL -NOUN_VALUE2] = .ROW_INFO; 
estan eaeienete 
NOUR, NODECDBGSL_ NOUN. VALUE3) = -COL_INFO; 
END; 
003C 00000 
55 00000000G 00 9€E 00002 MOVAB posse wTad 
54 000000006 00 9€ 00009 MOV DBGSNMA 
5 10 C p00i9 SUBL #16, SP 
5 04 aC 00 0001 MOVL Sta eee R2 
52 DD 00017 PUSHL R2 
0000v CF 01 FB 00019 CALLS #1, PARSE_WINDOW_NAME 
53 50 D0 OOO1E MOVL RO, NAMEPTR 
02 DD 00021 PUSHL # 
00000000’ gf 9F 00023 PUSHAB DBGSCS_AT 
¢ DD 00029 PUSHL 
64 9 Fe 0028 CALLS #3, DBGSNMATCH 
05 0 €8 0002E LBS . $ 
52 0D 00031 PUSHL R2 
65 01 FB 00033 CALLS #1, DBGSSYNTAX_ERROR 
01 0 8 1$: PUSHL #1 
00000000' gf F 000 PUSHAB DBGSCS_LPAREN 
DOD 38 PUSHL R 
64 9 Fe 004 CALLS #3, DBGSNMATCH 
05 E8 0004 BLBS es 
52 0D onee PUSHL ¢ 
65 9} fB 4 CALLS #1, DBGSSYNTAX_ERROR 
E 0d op68 23: PUSHL SP 
0 AE 9F 0004 PUSHAB BEG 
1 AE 9F PUSHAB RLEN 
1 AE 9F PUSHAB RBEG 
52 0D 00 : PUSHL R 
0000v CF 8 FB 32 CALLS » PARSE_WINDOW_ PARAMETERS 
6 DD 00050 PUSHL +e 


-ENTRY DBG$SCR AXCERROR, A ~ CMD, Save R2,R3,R4,R5 
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4886 


4933 


4940 


4942 
SIGS 


4946 
4948 


4954 


f 9 
GSCREEN 16-Sep-1984 02:30: AX-11 Bliss-32 V4.0-74 
vos 1028687138 93:99:24 DEBUG. SRC IDBGSCREEN.B32; 1 
000000006 Q 01 F SF CALLS #1, DBGSGET_TEMPMEM 
08 AC OD MOVL  VERB_NODE, Ri 
08 Al 2 Dd A MOVL NODE, 8(R1) 
$9 D MOVL § NAMEPTR, (NOUN_NODE) 
1 of AE B MOVW  RBEG, ROW_INFO 
51 10 19 AE F 7 INSV LEN, #167 #16, ROW INFO 
oc oA 51 D 78 MOVL ROW INFO,’ 12(NOUN_NODE) 
51 06 AE B 7F MOVW  CBEG, COL_INFO 
51 10 10 gf i 3 INSV  CLEN, #16, #16, COL_INFO 
10 a0 1 20 90 : MOVL COL_ INFO, 16(NOUN_NODE ) 


; Routine Size: 141 bytes, Routine Base: DBGSCODE + 2800 
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SCREEN 1Sese -1984 02:30: AX-11 Bliss-32 V4.0-74 Pa 75 
vee 12-Sep-19 4 95:70:24 {oeBUG. SRC secechcén.o$9s1 wa?” 7) 
3 ¢ 9 1308 } GLOBAL ROUTINE DBGSSCR_PARSE _SHODISP_CMD(INPUT_DESC, VERB_NODE): NOVALUE = 
3 4 i” 4968 1 ! FUNCTION 
3; 487 $38 1 $ This routine parses the SHOW DISPLAY command. It accepts a command 
3; 487 49 1! Line str ng descriptor as input and produces a Verb Node for the parsed 
3; 46876 4971 1! SHOW oi erk Y command as eyte t. That Verb Node later serves as input 
3 : Le rp 4 : } to DBGSSCR_EXECUTE_SHODISP_CMD which actually executes the command. 
3; 487 4974 1! INPUTS 
3: 4 A 4975 1! INPUT_DESC = A strin descriptor pointing to the input Line being 
3 4 4976 1! parsed. The descriptor is assumed to be pointing to the 
3 cst $37 } } first character after the SHOW DISPLAY keywords. 
3; 4 § 4979 1! VERB_NODE = A pointer to the Verb Node to be built up for the command 
; 488 <36t } : being parsed. 
: cass 49 ¢ 1 ! OUTPUTS 
3 4985 1! INPUT_DESC = The input string descriptor is updated to point to the 
; 4887 4984 1! first character after the end of the command. This normally 
3 thee rhs +4 : means that the input string is exhausted. 
3; 4890 4987 1! VERB_NODE - The passed-in Verb Node is filled in so that it contains 
3; 4891 4988 1! all _ information picked up during the parse of the SHOW 
3; 489 4989 1! DISPLAY command. 
3; 489 4990 1! 
3 4896 4991 1 
3; 4895 499 BEGIN 
3: 4896 499 
3; 4897 4994 p 
3; 4898 4995 INPUT_DESC: REF BLOCKC,BYTE), ! Pointer to input otr ing descriptor 
3; 4899 rh VERB_RODE: REF DBGSVERB_NODE: ! Pointer to input Verb Node 
3; 4900 499 
3; 4901 4998 LOCAL 
3; 490 4999 10000005; !€<ewwweeen= Local declarations -------- 
3; 490 5000 
3 4904 5001 
3; 4905 500 
; $906 500 ! At present the SHOW DISPLAY command has no qualifiers or parameters. 
: 4907 5004 ! Hence there is nothing to parse and we return immediately. 
3; 4908 5005 ‘ 
3; 4909 e008 RETURN; 
3; 4910 500 
: 4911 5008 END; 


0000 00000 .ENTRY DBGSSCR_PARSE_SHODISP_CMD, Save nothing > 4966 
04 00002 RET : 5008 


Routine Size: 3 bytes, Routine Base: DBGSCODE + 25D 


De Se Se Se Se Se Se Se Se Se Ge Ge SHSe Se Ge Se Se Fe Se Se Se Se SH Se Se ae Se Se SESH Oe Se Se Se Se FHS Se FH Se Se Se Se Se Se Se eee ee Se Se ee SESH eae < 
oo 


DBGSCREEN 


; 4913 


Be Se Se ee Oe Be Se Fe Se Se Se Se Se Se Se Se Se Se Ge Se Ss Se Se Se Se Fe SH Ss Se SF Ss Se Se FHSS Ss Se Se Se SHS ese 
= 
o 


16 $3 1 
-seo- 
le-Sep-1 


FUNCTION 


and 
DBGSSCR_EXECUTE_SHOWIND_CMD wh 
INPUTS 
parsed. T 
being parsed. 
OUTPUTS 


rst character a r the end 
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command. 
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BEGIN 


LOCAL 


OoOoooo[eo 
Por et ak 


' At present the SHOW WINDOW command has no 


RRREKLK 


RETURN; 
END; 
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04 0000 


Routine Size: 3 bytes, Routine Base: DBGSCODE + 2C60 
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GLOBAL ROUTINE DBGSSCR_PARSE_SHOWIND_CMD(INPUT_DESC, VERB_NODE): NOVALUE = 


This routine parses the SHOW WINDOW command. It accepts a command Line 
a | descriptor as input and produces a Verb Node for the parsed SHOW 
WINDOW comm as output. ee Verb Node later serves as input to 

ch actually executes the command. 


INPUT_DESC = A etring descriptor pointing to the input Line being 
r e descriptor is assumed to be pointing to the 
first character after the SHOW WINDOW keywords. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: VERB_NODE - ; pointer to the Verb Node to be built up for the command 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 


NO JERS The input sores descriptor is updated to point to the 
e 


of the command. This normally 


means that the input string is exhausted. 


VERB_NODE = The passed-in Verb Node is filled in so that it contains 
all information picked up during the parse of the SHOW WINDOW 


MAP 
INPUT_DESC: REF BLOCKC,BYTE), ' Pointer to input string descriptor 
VERB_RODE: REF DBGS$VERB_NODE; ! Pointer to input Verb Node 


qualifiers or parameters. 


Hence there is nothing to parse and we return immediately. 


gENTRY DBGSSCR_PARSE_SHOWIND CMD, Save nothing 
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GLOBAL ROUTINE DBGSSCR_READ_LINE(RABPTR) = 


' FUNCTION 

This routine reads a Line of command input from one user's terminal. 
If a current input Ct soley has been selected, the nput line is read 
from that display; otherw $¢ che Line is read from the user program 
scrolling window. The routine in effect simulates a call to the $GET 
system service: It accepts a pointer to a RAB as input and it produces 
@ status code as output. ALL information about the the prompt string 
to be used and the input buffer to be filled is gotten from the RAB 
and all outputs other than the status code (for example, the actual 
input length) are returned to the RAB. 


This routine should not be called if input is coming from an indirect 
command file--it handles terminal input only. 


INPUTS 
RABPTR = A pointer to an RMS Record Access Block (RAB) for the 
desired input operation. This RAB must contain the proper 
input buffer and prompt string information for the 1/0 
- operation to be performed. 


32 V4.0-74 Pa 77 
GSCREEN 9° 45) 


-832;1 


OUTPUTS 
RABPTR = RABPTR itself is not modified, but the RAB it points to is 
changed to indicate the actual length of the input string 
that was read from the appropriate screen display. Other 
fields that could be changed by a S$GET operation may also 
by changed by this routine. 


An RMS status code as could be produced by $GET is returned as this 
routine’s value. In pers teuser.. if the input operation is 
successful, SS$_NORMAL is returned. 


BEGIN 


MAP 
RABPTR: REF BLOCKC BYTE); ! Pointer to input RAB 


LOCAL 
AXXAAAK | !<<ececcce -- Local declarations -------- 


: The text of the routine starts here. 


Pl ee2ecece woe ee ecseas FIRST LINE OF CODE eee wee een ene eee ee wwe ewe eee 
RETURN SS$_NORMAL; 


END; 


oo 
RS 


000 LENTRY DBGSSCR_READ_LINE, Save nothi : $05 
50 01°88 8 nove ho RO ni ape RG. : 3038 


; 509 


oo 


0 


- «9 | 


Woesb00" 1: Ben 19be 3:19:25 — Eoeaug. src Ioacecheew.ogs: 1 aoe 405 


| 
04 00005 RET ; 5101 
; Routine Size: 6 bytes, Routine Base: DBGSCODE + 2(63 


——— 
i 


Kk 9 
SCREEN 16-Sep-19 730: AX-11 Bliss-32 v4.0-74 
vo 10-380-198e 95:79:83 DEBUG. SRCIDBGSCREEN 039; 1 
GLOBAL ROUTINE DBGSSCR_SCREEN_MODE(SET_FLAG): NOVALUE = 


' FUNCTION 
: This routine executes the SET MODE SCREEN and SET MODE NOSCREEN 
commands to set or clear ‘‘screen mode’. When screen mode is set, 
screen displays will be displayed on the terminal in the normal 
manner. However, when screen mode is cancelled, screen displays 
are not shown on the terminal even though the user may have a 
number of active displays defined. Those displays can be re- 
enabled by setting screen mode again. 


Screen mode is get by setting the Lepet flag DBGSGL_SCREEN_MODE 

to TRUE. The first time screen e is set, the pre-define displays 
SRC, REG, and OUT are also defined. Terminal input and output are 
directed to the appropriate screen displays as well. 


Screen mode is cancelled by clearing DBGSGL_SCREEN_MODE. In addi- 
tion all screen input and output is cancelléd so that subsequent 
output goes through RMS in non-screen mode. 


INPUTS 
SET_FLAG - If this lop is TRUE, screen mode is set by this routine. 
If the flag is FALSE, screen mode is cancelled. 


SELESRAN 


PAWN NII WII I NIG OROPOPOPOPOPOPUPITURININININID 2 ot 2 


Oo 
ee ee ee Pt 


DONAUE wr 


OUTPUTS 
NONE 


BEGIN 


LOCAL 
CMDPTR: REF VECTORE 


cet tw 


COOOCSCOCCSCOCOCOCOOoOOOooOoOO 


w 


WORD), Pointer to the SRC command buffer 


! set 
' 


if .SET_FLAG 
THEN 


BEGIN 
DBGSGL_SCREEN_MODE = TRUE; 


PWN O OONO UNE WN 9 ODN NEW “OO OODVNOUNE WO 


' 
ape DISPTR: REF DBGSDI SF ENTRY i Pointer to Screen Display Entry 
04 SCREEN_INFO: BLOCKL12,BYTE, | ' Screen information control block 
306 ATU ! Screen package status code 
Be WPTR: REF DBGSWINDOW_ENTRY; ! Pointer to a Screen Window Entry 
fe 
504 : If SET_FLAG is TRUE, we are executing the SET MODE SCREEN command and we 
504 ‘screen mode". 


Sssssss? 


SESSESES SOT OTOS 


The first time screen mode is set, we direct screen output to logical 
name DBGSOUTPUT if this name is defined. We also ‘‘predefine’’ the SRC 
source display. the REG reg'esor display, and the OUT output 4 tee 
! SRC is marked as removed if the current (anguage is MACRO or BASIC and 
REG is marked as removed if the current language is anything else. 


SCREEN_MODE_FIRST_TIME 
BEGIN 


OONOVNEWN SO OBNO UV Fw 0 0 


fF. 
HEN 
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SELESFELLS 


DDD DVD LDV LIV DIVDV DV IVDVIVDUDUDVDVIVIVLIVPVLIVIVIVLVSUSUSV LEI LULULUS ISU STIST LEST STS ISIS ISIS 


me et i ae a ee et a 9 = 9 SS ss = SH YY 


—OCOnOVlwn—o 


ROR — - se so SS 


Pw 
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! If the Logical name DBGSOUTPUT exists, redirect the eereen output 
; to that logical name. Otherwise it goes to SYSSOUTPUT 


REDIRECT _SCREEN_OUTPUT(); 


! Now get s information on the screen terminal. The onuy iece 

of information we actual ty use is as Hee this is a VT100 class 
; $ not, we disable the use “of scrolling 
: Foatens (VT52s do not support scrolling regions). 


' 
' 
! 
' 
' 
STATUS = SCRSSCREEN_ INEOCSCREEN, INFO) ; 
IF NOT .STATUS NrgiGn GNAL (stat 

IF NOT SCREEN. INFOL ath THEW bacscu _VT100_FLAG = FALSE; 


Sorqinel . not. If it 


' Create gource display SRC, an gic updated display 

! which dis ~ ays a window around the currently executed source 
! Line. Select SRC to be the current source display and the 

! the current scrolling gtoptey y unnest. the Language is MACRO or 
! BASIC. For languages MACRO and C, which do not support 

' source display, we mark this y Bape as ct removed. 


WPTR = DBGSSCR CREATE TEMP WINDOWC 1, 9, » 132); 
CMDPTR = pacscer MORY(247ZUPVAL + 
CHSAOV {3s pT" ENTE CRASCIT EXAMINE /SOURCE -O\SZPC"), CMDPTRE1)); 


DISPTR = pacssir —CREATE oa a BYTE(ZASCIC ‘*SRC*) 


SP_SOURCE, .WPTR, 50, .CMDPTR); 
IF ‘: DBGS$GB_LANGUAGE EQL DBG$K_MATRO) OR 
-DBGSGB-LANGUAGE EQL DBG$K~- “BASICD 


T EN 
DISPTRCDBGSV_DISP_REMOVE] = TRUE 


LSE 
BEGIN 
DBGSSCR_CURDISP_SOURCE = 8 


ISPTR; 
= =CURDISP"SCROLL = .DISPTR; 


' Create register display REG. This display is marked as removed 
; for all languages other than MACRO and BASIC. 


WPTR = DBGSSCR_CREATE_TEMP_WINDOW(1, 5, 1 132); 
DISPTR = DBGSSTR_CREATE DISPLAY CUPL LT byte(s 
G$K_DISP_REGIS TER. Pin, §, 0): 
IF (  DBGSGB_ LANGUAGE EQL DBGSK_MACRO) OR 
DBGSGB"LANGUAGE EQL DBGSK"BASIC) 


THEN’ 
REGISTER_DISPLAY(.DISPTR, DBGSRUNFRAMECDBGSL_USER_REGS)) 
ELSE 
BEGIN 
DISPTRCDBGSV_DISP_REMOVE] = TRUE; 


— 
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DONO VEWN “OOO NOU EWN 0 0@ 
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; 
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1e=8eb-198e 93:79:23 — EOKau. gre Sbaascr 
ISPTRCDBGSU_DISP_RBEG) = 7; 


! Create display OuT, the standard output display. Select it as 

! the current output d splay. If the current language is MACRO or 
! BASIC, we also select it as the current scrolling display and 

: adjust the window to fit with the REG display. 


WPTR = DBGSSCR_CREATE_TEMP_WINDOW(11, 9, 1. 132); 
DISPTR = DBGSSCR_CREATE_DISPLAY(UPLIf BYTE(ZASCIC ‘OUT’) 
BGSK_DISP_NORMAL, .WPTR, 100, 0); 
DBGSSCR_CURDISP_OUTPUT = .DISPTR; 
(.DBG$GB_LANGUAGE EQL DBGSK_MACRO) OR 
(-DBGSGB_LANGUAGE EQL DBG$K"BASIC) 


BEGIN 
te CURDISP_SCROLL = -DISPTR; 
DISPTRCDBGSW_DISP RBEG) = 7: 
DISPTR DBGSW~DISP"RLEN) = 13; 


! Clear the ‘first-time’ flag so that we do not do the above 
} initialization the next time screen mode is entered. 


SCREEN MODE _FIRST_TIME = FALSE; 


! Mark all Lines in the “‘old’’ screen image as invalid. This ensures 
! that DEBUG won't make ony assumptions about the previous screen 
} contents when first putting displays on the screen. 


INCR I FROM 0 TO DBGSK_PASTE_SIZE - 1 DO 
OLD_VALIDC.1] = FACSE; 


' Set up the active input and output étsptays. Here we set them to be 
the currently selected input and output displays. We then return. 
DBGSGL_SCREEN_INPUT = .DBGSSCR_CURDISP_INPUT; 


DBGSGL"SCREEN-OUTPUT = .DBGSSCR_CURDISP_OUTPUT; 
Seer et OCREEN_ SOURCE = .DBGSSCR_CURDISP_SOURCE; 


: If we get here, SET_FLAG is FALSE, so we cancel screen mode and return, 
DBGSGL_SCREEN_MODE = FALSE; 
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-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
7F P.AHL: .ASCII \EXAMINE/SOURCE .0\<92>\2PC\ 


9 4D 41 a5 6 

0 2 ; obe 
4 694 P.AHM: .ASCII <3>\SRC\ 
4/7 4 Boge P.AHN: .ASCII <3>\REG\ 
54 55 4F 69C : ASCII <3>\0UT\ 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 ENTRY areRs Re SCREEN MODE, Save R2,R3,R4,R5,R6,- 
B 90000000; EF 9E 9002 v AHL; 
A 9900000" 9 000 MOVAB pacsel SCREEN_MODE, R10 
9 000000 EF 9 001 MOV SCREEN-MODE_FIRST_fIME, RO 
t C2 0001 SUBL 
0 04 AC § OO1A BLBS ETFLAG, 1$ 
0136 31 O01F BRW 
6A 01 D6 0021 1$: MOVL DBGSGL_SCREEN_MODE 
03 9 : 0024 BLBS ScheeNe MODE_FIRST-TIME, 2$ 
01 é 1 00027 BRW 13$ 
0000v CF 0 FB OO02A 2% CALLS #0, REDIRECT_SCREEN_OUTPUT 
E DD 000eF PUSHL 
000000006 90 1 FB 00031 CALLS #1, SCRSSCREEN_ INFO 
00 00 MOVL RO, STAT us 
09 E8 00038 BLBS stat 1s " 
DD 000 PUSHL STA TUS 
000000006 00 or FB 004 CALLS #1, L1BSS1GNA 
04 6E 1 € 004 3$: § a SCREEN INF, 4$ 
£884 9 pA 048 CLRL bagscc vi10 
7E 4 8F 9A OOO4F 4S: MOVZBL #132, ={$P) 
1 DD 99 PUSHL 
9 DD 00 PUSHL ag 
1 DD 000 PUSHL #1 
DE46 cf 4 FB 059 CALLS #4, DBGSSCR CREATE, TEMP_WINDOW 
7 ; D Oo MOVL RO. WPTR 
DD 6 PUSHL 
000000006 90 . fo 3 CALLS #1, DBGSGET _MEMORY 
6 Q p 6A MOVL. RO. CMDPTR ~ 
02 Ab 1 MOVC3 #21, P.AHL, 2(CMDPTR) 
ne 16 8B MOVW ; 2° «tMpPir) 
DD 0007 PUSHL CHDPTR 
DD 0007 PUSHL 85 
DD 00079 PUSHL  WPTR 
03 BD 7B PUSHL #3 
15 AB 9F 0007 USHAB P,AHM 
Dd88 FB CALLS #5, DBGSSCR_CREATE_DISPLAY 
; p HOVE D1 
000000006 A MOV2BL DBGSGB_LANGUAGE, RO 


a 
| 


; 5102 


9 oe 
v04-00 
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04 

OA A2 
E8C4 §=C9 
E8C0 9 
E 

DDEF F 
57 

7E 

DD46— eC 
52 

50 

04 

0000v CF 
OA A2 
10 A2 
7E 

DDA6 CF 
57 

7E 

DCFA CF 
52 

e8ec 3=C9 
50 

04 

E8cO)3=— C9 
10 A2 
FEFC §=6C9 
50 

FB AA 
08 AA 
OC AA 


84 


19 


000000006 


000000006 


84 


000000006 


00000007 


£888 
E8BC 


E8C4 
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1 
1 
13 ope 
91 8 91 
is 094 
88 00096 
5 His 
8 HR 
9A QO0A6 
DD QOOAA 
DD Be pae 
DD QOOA 
Fe 008 
008 
D 00088 
DD 00088 
DD Beoee 
9F OOOBF 
FB 000C 
DO 000C 
9A OOOCA 
13 00001 
91 00003 
12 00006 
9F 00008 
DD OOODE 
FB OO0EO 
11 QOOES 
88 000E7 
BO OO0EB 
9A OOOEF 
DD OO0F3 
DD OOOFS 
DD OO00F? 
FB OO0F9 
DO OOOFE 
D4 00101 
9A 00103 
DD 00107 
DD 00109 
oF 33138 
Fe 31% 
DO 0011 
a as 
13 $01 5 
91 00124 
12 00127 
DO 00129 
Dd 3 
D4 001 
D4 001 
EF O15A 
F$ 00140 
DO 00144 
DO O014A 
DO 00150 


NO OW 
room wm 


8$: 


Oo 
Sad 


10$: 


‘4 AX-11 OL genre ve 0-286 
: DEBUG. SRC JDBGSCREEN.B32;1 
5$ 
RO, #4 
6$ 
ole 10(DISPTR) 
DISPTR, DBGSSCR_CU eet towtriant 
DISETR. ; DBGSSCR_CU RDISP~SCROLL 
#132 
#1 
i 
+ ae DOGssCR. CREATE_TEMP_WINDOW 
as wes) 

wPfR 
oe 


9 DBGSSCR.CREATE DISPLAY 

DBGSGB_LANGUAGE , RO 

RO, #4 

DBGSRUNF RAME +4 

"06 REGISTER_DISPLAY 
10(DISPTR) 

7 16(D 1SPTR) 

#132, -(SP) 

#1 

“9 

#11 

#4, DBGSSCR_CREATE_TEMP_WINDOW 

RO, WPTR 

-(§p) 

#100, -(SP) 

WPTR 

#1 

P. AHO 

#3, DBGSSCR_ CREATE_DISPLAY 


DISPTR, DBG$SCR_CURDISP_OUTPUT 
bacscB, LANGUAGE; RO 


RO, rT} 

ofsere DBGSSCR_CURDISP_SCROLL 
1975, 16(DISPTR) 

SCREEN mODE FIRST TIME 


# 
DBG$SCR_CURDISP_ INPUT DBGSGL_SCREEN_INPUT 


DBG$SCR~CURDISP~OUTPUT, 
DBG$GL_SCREEN_OOT BUT 
DBGSSCR CURDISP. SOURCE, - 
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DBGSCODE + 2C69 
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DBGSGL_SCREEN_SOURCE 
peceét. SCREEN tte 
DBGSGL_SCREEN ofRR 
DBGS$GL_SCREEN_] 
<SCREEN_ OUTPUT 


re. geneset SCROLL 
STATUS, 178 

STATUS 

#1, LIBSSIGNAL 


<2 | 


DADA 
MMMwONr— 
NADAS & 
Dono o 


| > 10 
DBGSCREEN 16-Sep-19 
voe= 1e-sep-19 


0000 00000 
25 00000000" EF €9 000 § 
0 04 000 
00 00000000° fF 0 EF BS 1$ 
F4 0 14 F3 00015 28 
18 0D 1 
000000006 00 PB 18 
09 G EB Goa28 
DD 000 


4 
4 
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DBGSSCR_SCREEN_NORMA 
DBGSGL_SCREEN_AODE, 


re 


fl 
#2, SCRSSET_SCROLL 
STATUS, § . 

STATU 


AX-11 8 
DEBUG.S 


OL vs 


S 


; ie? 76 } GLOBAL ROUTINE DBGSSCR_SCREEN_NORMAL: NOVALUE = 

; 5185 £8 1 ! FUNCTION ; 

; 186 my 38 This routine sets the screen back to ‘'normal’’ if we are in Screen 
; 518 + ze Mode and it invalidates the current screen contents. It is called 
; 5188 1 Bg when we are about to break out from DEBUG with a SPAWN or ATTACH 

: 5189 8 1! command. Hence the new process entered via SPAWN or ATTACH sees 

; 5190 2 4 1! a normal terminal screen with a full-screen scrett ine region. How- 
3; 5191 4 1! ever, since the current screen contents are invalidated, the whole 
; 2138 5285 1! screen is automatically refreshed when we later reenter DEBUG from 
; 519 86 1! the SPAWN or ATTACH command. 

3 2138 87 1! 

; 5195 86 1! INPUTS 

; 5196 5289 1! NONE 

3; 5197 5290 1! 

; 5198 5291 1 ! OUTPUTS 

; 5199 5 4 1! NONE 

3 4 52935 1! 

; 5201 2$3¢ 1 

3 2508 5295 2 BEGIN 

; 520 5296 § 

3; 5204 5297 LOCAL 

; 5205 5298 STATUS; ! Status code from screen package 
3; 5206 2692 

3; 5207 5300 ; 

3 espe 5301 § : 

3 44 2306 § If Screen Mode is not set, there is nothing to do and we just return. 
3 5211 5304 2 IF NOT .DBGSGL_SCREEN_MODE THEN RETURN; 

asi¢ 5305 2 

3; 521 5306 2 

3 5214 5307 2 ' Screen Mode is set. Invalidate the current screen contents and set the 
3 2gi2 3308 § scrolling region to be the whole screen. Then return. 

3; 5217 5310 2 INCR I FROM 0 TO_DBGSK_PASTE_SIZE - 1 DO 

3; 5218 5311 2 OLD_VALIDC.J] = FACSE; 

; 5219 a3i¢ 2 

s 3550 5313 2 STATUS = SCRSSET_SCROLL(1, 24); 

3; 5221 5314 2 IF NOT .STATUS TREN SIGNAL(.STATUS); 

; 2556 5315 § RETURN; 

: 522 5316 

3: 5226 5317 1 END; 


LID, 2% 


1$ 


RS 


bg Save nothing 
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10 
‘yoe=600 ib beo-t 9 93:79:23 — ¥okauG. SacSbeesckeen.089; 1 
000000006 00 01 FB 90087 CALLS #1, LIBSSIGNAL 
04 — 38: RET 


; Routine Size: 47 bytes, Routine Base: DBGSCODE + 2DE6 


L 5 aaa doainsuicietin saneeiieil 


10 


GLOBAL ROUTINE DBGSSCR_SCREEN_TERM: NOVALUE = 
FUNCTION 


the Screen a og 4 Exit Handler w 
tion and resets the 


freshed the next time it is updated. 
INPUTS 
NON 


! OUTPUTS 
NON 


NOUS WNC OONOU Sw —O00 


et ne ee tee we oA att oh ote Naot 4 


BEGIN 


Www 


r+ —_? 


IF NOT .DBGSGL_SCREEN_MODE THEN RETURN; 


FSELEEES 


VEU —OOONOUS WO 0O@ 


PEP DVPV PV PVPUPUPV SVS SUA SIA 


Roronofnoreroroery 


nm 
PAADAMAMNINE BELL LEE EE 


AW BS Seo ARUN DO De NON Po OS 


REDIRECT_SCREEN_OUTPUT(); 
DBGSSCR_SCREEN_NORMAL () ; 
RETURN; 


PVPVDVDIVDIV DV DVPVDVLVLV SVL SVSVSVISULT SUSI ISTSUSVSISIOSISISISIOSIOS SISSON 


=SAPIPIPIPIDPPIPIPINPMINIMINPIPIPIPRY 8 a at st st tt dt tt a 


WANA 
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Sah ak al 


0000 000 
09 00000000° EF 08 00009 
0000v CF 60 FB 808 
BF OAF 0 FB its 
04 00012 1% 
; Routine Size: 19 bytes, Routine Base: DBGSCODE + 2615 


F 
16-Sep-19 
14-Sep-19 


i 

i 

i 

i 

i 

i 

; scrolling region to the 
4 this routine turns on output redirection if D 

and it invalidates the screen so that the whole screen is re- 
i 

i 

i 

i 

i 

' 

i 


Be 93:47:25 


and set the scrolling region to be the whole screen. 


it 


In 


This routine refreshes the screen and re-enables screen output 
redirection on behalf of the DEBUG termination handler (ex 
handler) that is called when the user program terminates. 
effect, the purpose of this fout tag is to undo the effects of 
hich turns off output redirec- 


! Screen Mode is set. Redirect screen output to DBGSOUTPUT if this 
' Logical name is defined. Then invalidate the current screen contents 


Then return. 


hole screen. Hence 
BGSOUTPUT is defined 


: If Screen Mode is not set, there is nothing to do and we just return. 


AX-11 Bliss 
DEBUG. SRC 


j -32 v4.0 
DBGSCREEN 
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6g } ROUTINE DBGSSCR_SCREEN_TO_LOGFILE: NOVALUE = 
6 1 § FUNCTION 
o8 1! This routine logs the entire contents of the terminal screen to the 
$ 1! current log-file provided that screen mode is set and that screen 
Y 1: ogging has been enabled. It simply outputs all screen contents 
7 1: ane uding the rendition information, to the log file in a readab ble 
i 1! ormat. Screen Logging is useful for error reporting and is required 
te : : to the DEBUG Test System. 
75 1 ' INPUTS 
7 1! NONE 
rs 1 i 
% 1 ! OUTPUTS 
7 1! NONE 
80 1! 
81 1 
Ht BEGIN 
84 ND 
285 HEADER_ LINE = UPLIT OYTECEASCHI $ teecetooce| cowntooonJocontoonn3! 
86 {oo ecetfoecoca(ice we focee§eccepocochocce}occe Jecespocce $s ° ) e 
44 HEADER_132 = UPLIT BYTE CRASCII “i. am Na 
S ecocet}occen ewe ce a oe 22a es oot 
89 80 HEX_TABLE = UPLIT BYTE(ZASCII '0123456789ABCDEF'): VECTORC, BYTE); 
91 38 CAL 
35 HE BUFFER: VECTORC132,BYTE), ' Output sorpett ing buffer 
9 384 FIRST TIME_FLAG, i Flag set first time line is output 
se oH tENCTA. i The Length of the formatted log Line 
39 se? 
4 3 34 : Output the header Line for the first 80 columns of screen image. 
00 3 DBGSWRITE_LOG_FILE(88, HEADER_LINE); 
9 
5 4 Output the first 80 columns of screen image to the log file. 
5 336 INCR I FROM 0 TO DBGSK_PASTE_SIZE - 1 DO 
97 BEGIN 
7 4 
0 é 99 
400 ' Format the log line for the current screen Line and fill in the 
19 5403 text of the first 80 columns of screen image. 
\¢ 108 CHSFILL(* °, 12. BUFFER); 
1 404 BUF F t0) = 
14 405 BUFFER arity + 1)/10) MOD 10) + ‘O°; 
315 £06 IF BUFF Ro2) bat ‘O° THEN gurreti e* "3 
16 40 BUFFERC3) = ((, 1 + 1) MOD 10) + ‘O°; 
1 408 BUFFER(4) = ':'; 
18 409 BUFFER § = “pee 
19 410 BUFFER e *t"s 
359 411 LENGTH = 88; 
321 5412 CHSMOVE(MIN(80, .OLD_CNTC.1]), OLD_SCREENC.1*132), BUFFERC7)); 
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! Format the songen of the screen Line and fill it in at the end of 
the log Line 


CHSMOVE (8, eis" BYTE ZASCII stength ="), BUFFERL90]) 
If jot LD SCTE J GTR 99 THEN : FFERC9B) = ‘s!; 

991.5 CNTC.13/100) MOD 10) + 9 ; 
BUFFER 10 2 a Tot ett 13/1 ) MOD 10) + "0° 

1) = (OLD _UNTC.1] MOD 10) + ‘0’; 
OUhGrn * 1 
IF ‘BUFF $) 0 L "0" THEN BUF FERTIO] s' 
IF ee Hate: j FOL * *) AND (.BUFFERL100) EQL ‘0° 


BUFFERC100] = * °'; 


f this Line has a single rendition attribute for the whole Line, 
nclude that rendition code at the end of the Line. 


~~ 


F .OLD_RENDE.1] NEQ 255 

HEN 
BEGIN 
CHSMOVE (8 UPLIT BYTE(ZASCII ', rend =") BUF eRe 02)) 
BUFFERL11{) = .HEX_TABLEL.OLD_RENDL.1) ried OF"); 
ENGTH = 112; 


Write the formatted Line to the log file. Then loop for more. 
DBGSURITE_LOG_FILE(.LENGTH, BUFFER); 


Output a trailing header Line to the log file. 

DBGSWRITE_LOG_FILE(88, HEADER_LINE); 

! Output columns 81 - 132 of screen image to the log file for those lines 
i on the screen that have text in that column range. 


FIRST_TIME_F sy Mes +f 
INCR ste cnon TO DBGSK_PASTE_SIZE - 1 DO 


! Output columns 81 - 132 of this screen Line only if text actually 
exists in those columns. Otherwise ignore the Line. 


if .OLD_CNTC.1) GTR 80 
THEN 
BEGIN 


! If this is the first Line of this kind, output the header Line 


me ibcdeoct9ge 09:50:21 Yancy eLiggca2 V4. 0-7 


: just ahead of it. 
if .FIRST_TIME_FLAG 
THEN 


ALSE; 
60, HEADER_132); 


! Format the Line, fill in the text from columns 81 = 132, and 
output it to the log file 


SIG 5 » 60, BUFFER); 
Be = ce + 1)/10) MOD 


SSN 
MEA 0 OONOUS UO 


Fad tek kee ee ee ke et et et et et 


3 


BUFFER 10) + ‘O°; 
‘i eure RC2] } ea *O" THEN gy rete? e° 
8 Ser eare (1 + + 1) MOD 10) + ‘0°; 
488 BUFFE "3 
489 Bur FERC = Te 
490 FFER 2 *} 
491 CHSMOVE CMIN(52. OLD. CNTC. or - 80) 
49¢ OLD_SCREENC.1*132 + 80], BUFFERL7)); 
49 posuere LOG_FILE(60, BUFFER); 
54 END; 
; i 
3409 99 If anything was output just above, output a trailing header Line too. 


IF NOT .FIRST_TIME_FLAG THEN DBGSWRITE_LOG_FILE(60, HEADER_132); 


PUPTSISIAII 


PUFFIN 
SSSSSSSSS555555 
QESRENLSSSLESE 
WOE PEPE EEE EEE & FUWUDRININININININININININININWA SE BPS BPP EPP PPP PEPE PNNNE EEE 


PUPP PISA 


410 
i 
8418 ! Output the rendition information for all Lines of text that have per- 
5414 ' character rendition information. The rendition information is repre- 
5ct6 sented as one hex digit of rendition bits per character position. 

t19 508 iNCR 1 FROM O TO DBGSK_PASTE_SIZE - 1 DO 

aei8 5509 

419 510 IF .OLD_RENDC.1] EQL 255 

420 511 THE 

421 21¢ BEGIN 

4 § 51 

4 514 

424 515 ' Format the Line, fill in the veaeteten bits for columns 1 - 80, 
5 5 316 and output the line to the log file 

4 $ 218 CHSEIL 03 te 87. BUFFER); 

428 51 

429 520 BUFFE errs arity + 1)/10) MOD 10) + ‘O°; 

4 521 My . BUF F KK bat *O* THEN aw rene? a * %, 

a3 ; § sr reetiy ((, ;i¢ + 1) MOD 10) + ‘O°; 

4 H 524 INER 1 FROM 0 ‘16 MIN(80, .OLD_CNTC.1]) - 1 DO 

eege 525 BEGIN 

435 526 BUFFERC.J + 7) = .WEX_TABLEL 


<o | 


rm - 


10 
ICRESHOEE APTS USL. hcssaeeteez8,. 
en: -OLD_SCREEN_RENDL.1*132 + .JJ AND 3X°OF"); 


DBGSWRITE_LOG_FILE(87, BUFFER); 


UEWN—OOOn 


! If the Line is longer than 80 columns, format the excess on a 
separate Line and output that Line to the log file. 


if -OLD_CNTC.1] GTR 80 
HEN 


BEGIN 
CHSFILL(’ *, 59, BUFFER); 
BUFFERLO) = ‘!°; 
BUFFERL4) = °:°: 
INCR J FROM 80 TO MIN(132, .OLD_CNTC.1J) = 1 DO 

BUFFERL.J + 7 = 80] = HEX TABLEL 

—_ -OLD_SCREEN_RENDC.1*132 + .J] AND &x°OF'); 
DBGSURITE_LOG_FILE(59, BUFFER); 


} The screen image has been logged. Now return. 


A=PIPINININININIWME BAMA MNAAQA UNNI ES BEE EEE PL EN 


RETURN; 
END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
$ 3p 4 2B 0 0 0 0 0 1 06A0 P = AHP g e ASC I ] \ ' toowctoncn] eoeeteooeQJooee gennnh\ 
D 2D 2D 8 D 20 20 2D 31 2D O06AF 
D 2b 20 20 2B 2D 0068 
i] D 2D 2D 2d D 2D 2D 2d eee 
D 2D 2D 20 2B 2D 2D 2d 20d 6E3 
8 20 2D 2D 2d 8 D 2d p D beep eASCII] = \eeenten=-8+\ 
D 2D 2D 0 0 20 1 ore P.AHQ: .ASCII \! tomentewenJennntonen()\ 
D 20 2D 28 20 20 2D 2d 39 2d 0070 
1 Dd D D D 5 D D D 1?) 71 ASC! ] \emweteown | coen towwn Joona tonne Jon4\ 
D 2D 2D 2d D 2d 4 ) ri 
39 38 37 36 35 34 33 3 1 §0 Fe P.AHR: .ASCII \0123456789ABCDEF\ 
D 20 68 74 67 5 6C O44 P.AHS: .ASCII \length =\ 
D $8 64 § $3 St 74C P.AHT: .ASCII \, rend =\ 


HE ADER_LINE= P. AHP 
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7E 
68 
0070 «BF 20 6€ 
51 i 
7E 00 51 
51 51 E 
02 AE 
0 
02 af 
pee 
O35 AE Hi 
04 AE 
26 AE 
a B 
50 
00000050 = BF 
50 
51 56 
07 AE 6C A941 
5A AE 1 AA 
000003€ 8F 
62. A 
50 2 
7E 0 0 
50 0 
i 
7 0 
3 
“Shed 
50 80 
65 AE 5 


01 
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50 
00000084 


00000064 


66 


16-50 -1 
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WER TA 


3c 93:79:23 | EOEauc. SacSdecscecew.0%s; 1 
132= P.AHQ 
BLE= P. AHR 
-PSECT DBGSCODE,.NOWRT, SHR, PIC,0O 
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Say ive a3, RRS -R6,R7,RB,RI,R10,R11 
If€_(OG FILE, R11 

HEX, TABLET R10 

op CNT ko” 

-132(SP5, SP 

re Line 


SP) 
- DBGSWRITE_LOG_FILE 
#0, (SP), #32, #112, BUFFER 
#33, BUFFER 


1(R6) 


#48, RI 


eels 

#32, noe 0, <(SP 

Ae teppe: 
RO, BU ae: 
UF FER+4 

He COU FERS 

#124, BUFFER+87 
LENGTH 

et cNTCI. Re 

RO. Reo 

nig 


as SCREENCRII BUF FER+7 
PoARS. BUFFER*+90 


he BUEFER*98 
ko" "go ={sP) 
i a0. RO 
a4 8 sFFEROS 
#10. R7. R 
it esi 
- ae 


; 5356 


oe | 
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| 10 
GSCREEN 18-se -1 :30: AX-11 Bliss-32 V4.0-74 Page 193 
Mirae 1 ~300 71382 95:70:74 DEBUG. SRC IDBGSCREEN.B3 31 9 43) 
30 63 AE 9 £9 CMPB 8 FFER*99, #48 5 5426 
94 i £D BNEO : 
63 A 0 ef MOVB #32, BUFFER+99 : 
2 63 AE F3 5$: CMPB sd BUFFER+99, #32 + 5425 
OA i F BNEQ = 6 : 
30 64 AE 9 9 CMPB ss BUF FER*100, #48 : 
g4 1 FD BNEQ 6 ; 
AE 0 FF mOVa 3s #32, BUFFERS 100 : 54 ? 
FF OF 54 A946 103 6$ CPB 9 D.RENDCIJ, #255 + 5433 
$6 AE 18 AA 0 1 MOVC3 #8, P.AHT, BUFFER+102 : 54 
50 4 A946 04 F 0011 EXTZV * #4, OLD_RENDLIJ, RO + 543 
oF OA 6A4 11 MOVB HE TABLECROJ, BUFFER+111 : 
5 70 F 9A 00110 MOV7BL #112, LENGTH : 5438 
4100 8F 8B 00121 7$ PUSHR #*M<R8.SP> + 5444 
68 2 Fe 105 CALLS #2 DBGSWRITE_LOG_FILE ; 
FEFB 36 1 14 £1 00128 ACBL =s_s«aw#2, wi, I, 18 + 53% 
FF6C «CA OF 001 , PUSHAB HEADER _LINE + 5450 
PE 58 F 9a 001 MOV7BL #88, -TSP) $ 
$8 2 FB 1 CALLS #2, DBGSWRITE_LOG_FILE : 
1 00 001 MOVL #1. FIRST_TIME_FLAG + 5456 
6 D4 0013¢ CLRL + 5457 
00000050 = &F 6946 D1 91 E 8$ CMPL 0 D_CNTCIJ, #80 + 5464 
z¢ 15 146 BLEO $ : 
OA 5 E9 0014 BLBC FIRST_TIME_FLAG, 9$ : 5472 
7 b4 0148 CLRL ~— FAST TIME-FLAG + 547 
C4 AA OF 00140 PUSHAB HEADER_13 : 5476 
3 DD 9130 PUSHL @# F 
68 : FB 001 : CALLS #2, DBGSWRITE_LOG FILE : 
3 20 6E 00 2c 3133 9$ MOVC #0, (SP), #327 #60, BUFFER : 5483 
6 $f 90 00158 MOVB #33, BUFFER + 5484 
1 01 Ab % O15 OVAR 1(R6), RI : 5485 
50 31 A : 016 DIVL3 #10, R1, RO ; 
7E 00 0 1 7A 00166 L RO, #0, -(SP) ; 
50 0 Hi A 7B 00168 EDIV. #16, (§P)+; RO, RO ; 
02 AE 3 0 gi 9170 ADDB3 #48. RO, BUFFER+2 : | 
0 02 AE 91 0017 CMPB ss BUFFER*2, #48 + 5486 
4 ff 0179 BNEQ ; 
02 ag 09 178 MOVB #32, QurrEne? : 
7E 00 4 1 7A QOO17F 108:  EMUL #1, R1, #0, -(SP) : $487 
50 50 Hi A 7B 00184 EDIV. #16, (§P)s. RO, RO ; 
03 AE 0 81 00189 ADDB3 #48, RO, BUFFERS ; 
4 AE A 18 MOVB #58. BUFFER+4 + 5488 
6 AE 7c.) OBE 1 MOVB #124, BUFFER + 5489 
AE 7¢ «=6BF 690 0019 MOVB #124. BUFFER+59 : 5490 
51 6946 00000050 8F C3 0019 SUBL3 #80, QLD_cNICII, RI : $491 
34 1 ? 1A CMPL Ri, @ 3 
3 1 BLEO ; 
1 4 D0 OO1AA MOVL. #52, RI ; 
50 6 00000084 FF ¢ 1A 11$:  MULL3 #132, I, RO > $492 
07 AE 0oBc ©9% 1 18 VC3_—oR1, OLD_SCREEN*80CROJ, BUFFER*7 : 
E 0D 00180 PUSHL SP > $493 
SPR SSIES 8° oncsunarg 106,r1u : 
FF74 56 of 1 Fg 1€4 12%: ACBL #26 ef l, Gs - : 303? 
8 57 €8 OOICA BLBS = FIRST_TIME“FLAG, 138 : 5501 


<oQ 


m 10 
16-Sep-1 :30: AX-11 Bliss-32 V4.0-74 
eagee=tS8e FSi FFi2h | HOMES Bhi ssese eee" 285. 
C6 AA OF O0IC PUSHAB HEADER_132 
DD 0010 PUSHL #60 
68 Fe 1D CALLS #2, DBGSWRITE_LOG_FILE 
p 105 13$:  ¢LAL 
FF OF 54 A9% 107 14$: CMPB 0 p_RENDLII, #255 
0 10D BEQL 
00 10F BRW 23$ 
0057 8F 20 6E 0 2 Ie 15$:  mOvCcS #0, (SP), #32, #87, BUFFER 
$f + 1EA MOVB #33, BUFFER 
01 «Ab 1€0 MOV 1(R6), RO 
7 A 1 DIVLS #10, RO, R7 
7 1 7A OO1F EMUL #1, R7, #0, =(SP) 
5 5 A 78 OO1FA Epiv. #10, ($P)s, R7, R7 
02 AE 0 81 OO1FF ADDB3 #48. R7, BUFFER+2 
0 02 AE 91 04 CMPB s«dBUFFER+3, #48 
4 fs 8 BNEQ 
02 3 0 9 OA MOVE 3s #32, BUFFERS? 
ze 90 5 1 7A 16$:  EMUL #1, RO, #0, (SP) 
5 0 3 A 78 0021 EDIV. #16, (§P)+; RO, RO 
03 AE 0 81 1 ADDB3 #48, RO, BUFFER+3 
04 AE A 9 1D MOVB #58, BUFFERS 
5 6946 D 21 MOVL  OLD.CNTCI), R2 
00000050 = &F 52 01 4 CMPL 
4 15 C BLEO 
52 50 BF QA 5 MOV ZBL #30 R2 
57 56 00000084 BF C5 17$: ULL3 #132, I, R7 
51 1 CF A MNEGL #1, J 
12 1 D BRB 
50 57 51 C1 fF 18$:  ADDL3 J, R7, RO 
50 0B40 ¢940 04 0 fF 43 ext2v. #6, w Ob SCREEN REND R01, RO 
07 AE41 6A4 : 48 MOVE HEX TABLE RO], BUFFER+7LJ 
EA 51 52 F 119$:  AOBLSS R2,7J, 18$ 
E pb 5 PUSHL SP 
7E 57 F A MOVZBL ag? -(SP) 
68 2 FB B CALLS #2, DBGSWRITE LOGFILE 
00000050 = 8F 6946 p} é CPL patie “8 
38 20 6E 00 2¢ 68 MOVCS #0, (SP), #32, #59, BUFFER 
6E zi 6F MOVB 433, BUFFER 
04 $5 A 9 MOVB #58, BUFFER+4 
3 6946 0 43 MOVL 0 DACNTEI » R2 
00000084 &F b} CMPL = RO, #13 
BLEG 
ef 84 F OA MOVZ7BL #132, R2 
GF fF 74 20% ey ce #79, J 
50 57 34 C1 C 218 ADDL3 J, R7, RO 
50 0B40 ¢94 04 00 €F ext2v #6, #4, OLD SCREEN RENDERO}. RO 
B7 AE41 6A4 MOVB HEX TABLE RO}, BUFFER-73LJ 
EA 51 F 228:  AOBLSS R2,7J, 
E OD PUSHL SP 
BPR SSM FAIS #2? omcaunire boc. 
FF28 56 6 Ht i3 238: ACBL #26, rh I, 734 7 
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; Routine Size: 688 bytes, Routine Base: DBGSCODE + 2&28 


[ 
DBGSCREEN an $ep-1984 02:30:2 Ax-11 Bliss-32 V4.0-74 Page 196 
voe=000 1e-88p-198e 83:19:45 — Eoeaus. sacioBeScREEN.0%9;1 9 uh) 
; He 336 ! ROUTINE DBGSSCR_SCROLL_DISPLAY(DISPID, DIRECTION, AMOUNT): NOVALUE = 
3; 547 568 1 ! FUNCTION 
: 5474 5564 1! This routine scrolls a specified eteptay in a specified direction. 
; 5475 5565 1! The scrolling is done by adjusting the window specification associ- 
; 5476 266 3 } ated with this etaeley and by also adjusting the pasteboard appro- 
: 5477 S67 1! priately if this display is yresent on the pasteboard. 
: 5478 568 1! 
; 5479 5569 1 ! INPUTS 
; 5480 5970 1! DISPID = The Display ID of the display to be scrolled. This is a 
: re 227) : pointer to the Screen Display Entry of that display. 
; ats 38 . 7 DIRECTION = The direction in which the display is to be scrolled. 
; oeee eefe : The following values are accepted: 
; 5486 sore 4 5 DBGS$K_SCROLL_UP == Scroll ee window up over the 
: 5487 $577 1! display text. 
; 5488 5578 1! DBGSK_SCROLL_DOWN == Scroll the window down over the 
3; 5489 5579 1! display text. 
; 5490 5580 1! DBGSK_SCROLL_LEFT <== Scroll the window to the left 
: 5491 5581 1! over the display text 
3 eS 2256 ; DBGSK_SCROLL_RIGHT -- Scroll the window to the right 
; ot87 e267 : over the display text. 
3; 5495 aeps 1! AMOUNT = The amount to scroll the display. This is either the number 
: 5496 5586 1! of Lines to scroll it up or down or the number of columns to 
3; 5497 5587 1! scroll it to the left or right. This amount must always be 
; 5498 5588 1! zero or positive. 
: 5499 5589 1! 
; 5500 5590 1 ! OUTPUTS 
; 5501 5591 1! NONE . 
; 2208 2236 1! 
; 550 5593 1 
; 5504 5594 3 BEGIN 
; 5505 5595 
; 5506 5596 2 Pp 
3; 5507 5597 2 DISPID: REF DBGSDISP_ENTRY; ' Pointer to Screen mee oy Entry for 
; 5508 5598 2 : display to be scrolled 
; 5509 5599 2 
; 5510 5600 § LOCAL 
; 5511 5601 ‘ ' Actual scroll movement up or down 
3; 5512 5602 2 NEW_ DROW ! New DROW value when scolling up or down 
; gei7 308? WSPTR: REF DBGSDLINE_ENTRY; ! Pointer to first Line in display window 
; gei¢ 5605 
; 5516 5606 
3 Solr 5607 ! Check that the scrolling amount is zero or positive. If it is not, 
3 2218 2608 signal an internal DEBUG error. 
: 3531 eei? § IF .AMOUNT LSS 0 THEN $DBG_ERROR('DBGSCREEN\SCROLL_DISPLAY 10"); 
: 55 561 
3 $598 ot Case on the scrolling direction to select the proper window adjustment. 
A 2859 615 CASE .DIRECTION FROM DBG$K_SCROLL_UP TO DBGSK_SCROLL_RIGHT OF 
; 2258 2018 SET 
3 Soar 561 
= 
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Scroll up the display. Compute the new DROW value (the new row 
location of the display window in the display text) and then compute 
the difference between the old and new DROW values. Then shift the 
window pointer up the display text that number of Lines and set the 
scrolling count. 


DBG$K_SCROLL_UPJ: 
IF .DISPIDCDBG$B_DISP_KIND] EQL DBGS$K_DISP_SOURCE 


G$W_DIS NT] = .DISPIDCDBG$W_DISP_RLEN] + 1, 


zZownm 
= 
So 
'e£ 
Ouse 
=z 
t 
. 
za 
m 
= 
L=) 
zz 
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G$W_DISP_SCROLL] = .DISPIDCDBGS$W_DISP_SCROLL] - .DELTA; 
DISPIDEDBGSL DISP WINDOWPTRI; 


¥ 
.WSPTRCDBGSL_DLINE_BLINKJ; 
D1SPIDCDBGSL_DISP_WINDOW_PTRI = .WSPTR; 


END; 


Scroll down the display. Compute the new DROW value (the new row 
location of the display window in the display text) and then compute 
the difference between the old and new DROW values. Then shift the 
window pointer down the display text that number of Lines and set the 
scrolling count. 


DBG$K_SCROLL_DOWN): 
IF .DISPIDCDBGSB_DISP_KIND] EQL DBGS$K_DISP_SOURCE 
IF DBGSSCR_SCROLL_SOURCE_DOWN(.DISPID, .AMOUNT) THEN RETURN; 
NEW_DROW = MAX(1, MIN( 
.DISPID[DBGSW_DISP_LINECNT] - .DISPIDCDBGS$W_DISP_RLEN) + 1, 
PID(DBG$W-DISP DROW} + ,AMOUNT)); 
NEW_DROW = sDISPID DBG$W_DISP_DROW); 
GS D1SP_DROW = .NEW_DROW; 


= ,DISPIDCDBGS$W_DISP_SCROLL] + .DELTA; 
_WINDOW_PTRI; 


P 
DLINE_FLINKI; 


Page 197 
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DBGSCREEN 16-Sep-1984 02:30:2 AX-11 Bliss-32 V4.0-74 P 198 
“Voee 14-Sep-19 4 93379525 DEBUG. SRCIDBGSCREEN.035: 1 29° oh) 


; 5585 675 4 DISPIDCDBGSL_DISP_WINDOW_PTR] = .WSPTR; 
>; 5586 o78 END; 
: eRe 8 END 
; 5589 o78 
; 5590 5680 
; 5591 5681 ! Scroll to the left side of the display. This only requires adjusting 
3 2238 2056 ! the display column value (DCOL). Note, however, that we do not allow 
3; 559 208 ' DCOL to become less than 1 
; 5594 684 : 
; 5595 5685 CDBGSK_SCROLL_LEFT): 
3 2299 2086 DISPIDCDBG$W_DISP_DCOL] = MAX(1, .DISPIDCDBG$W_DISP_DCOL] = . AMOUNT); 
; 5598 5688 
3; 5599 5689 ' Scroll to the right side of the hg 2H This also only requires 
; 5600 5690 ! pe iusting the di gor column value (DCOL). Note that we do not allow 
: 5601 5691 ' DCOL to exceed 135. 
3 rey 984) : 
; 560 569 CDBGSK_SCROLL_RIGHT): 
3; 5604 5694 2 DISPIDCDBG$W_DISP_DCOL] = MIN(133, -DISPIDCDBG$W_DISP_DCOL] + .AMOUNT); 
; 5605 5695 § 
; 5606 5696 
3 rea 44 203 2 Any other scrolling direction constitutes an internal DEBUG error. 
3; 5609 5699 ; CINRANGE, OUTRANGE): 
3; 5610 5700 $DBG_ERROR("DBGSCREEN\SCROLL_DISPLAY 20°); 
3; 5611 5701 2 
3; 5612 arte § TES; 
: 5613 570 
3: 5614 5704 2 
; 5615 5705 2 ! The scrolling is completed. Now return. 
: 5616 5706 2 : 
; 5617 5707 2 RETURN; 
; 5618 5708 2 
; 5619 5709 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
4F 52 43 53 5C 4E 45 45 52 43 53 47 42 44 18 00754 P.AHU: .ASCII <27>\DBGSCREEN\<92>\SCROLL_DISPLAY 10\ : 
30 (31 g0 59 41 4C 50 53 49 446 SF 4C 4C 00763 3 
4F 52 43 53 C 4€ 45 45 52 4&4 53 47 42 44 1B 00770 P.AHV: .ASCII <27>\DBGSCREEN\<92>\SCROLL_DISPLAY 20\ : 
30 32 20 59 41 4C 50 53 49 44 SF 4C 4C 0077F ; 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
001C 00000 DBGSSCR_SCROLL_DISPLAY: 
«WORD ~ Save R2,R3,R4 ; 5561 
54 00000000G 00 9€ 0000 MOVAB ers R4 3 
53 oc AC ? B00D ays AMOUNT, R : 5610 
00000000" EF 9F 6 F PUSHAB P,AHU 3 
DD 313 PUSHL @# 3 
00028362 F DD 0001 PUSHL #164706 : 
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 DBGSCREEN 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 200 
‘¥Oe=000 14-Se 20-1984 96: 9: 3 DEBUG. SRC JDBGSCREEN.B3 31 9° a4) 
3 16 00001 BGTR 138 : 
0 83 p0 6 D3 HOVE : 
1 18 A? D6 13S: MOV yt eitas. : 5665 
51 9 C DA SUBL DELTA New, phy DELTA : 
| 18 «OA 0 8 Og MOVW W Dow R25 : 5666 
| 1 0D E TSTL DELTA : 566 
46 1 £4 14$:  BLEG : 
oC A 51 A £6 ADDW2 DELTA, 12(R2) ; 5670 
5 28 «A2 OD EA MOVL  40(R25, WSPTR + 5671 
3 D4 O00E CLRL : 5672 
11 OO00F BRB 4 ; 
29 1?) f2 15$: MOVL (WSPTR), WSPTR : 5673 
9 F F 168: AOBLEQ DELTA, f, 15$ ; 
28 «A 0 p OF9 17$: MOVL wWSPTR, 46(R2) : 5675 
4 8 RET ; 5615 
50 04 AC 0 fs 18$: MOVL eet Se dD, ag : 5686 
31 1A Ag ¢ 91 MOVZWL aon ; 
1 53 C2 001 SUBL2 ; 
1D 14 001 BGTR ; 
51 01 DO 00108 MOVL 20$ R1 : 
18 «11 0106 BRB 208 ; 
50 04 AC 20 gor 19$:  MOVL  DISPID, RO + 5694 
51 1A Ag C 00114 MOVZWL 26(R ), RI ; 
51 53 CO 00118 ADDL2. R3, : 
00000085 = &F 51 01 00118 CMPL =soR1. #133 : 
04 15 001 LEG }~=s 20 : 
51 as ef 9A 00124 MOVZBL #133, R1 F 
1A AO 1 BO 00128 208: OVW  R1, 26(RO) : 
04 0012C 21$: RET : $709 


; Routine Size: 301 bytes, Routine Base: DBGSCODE + 3008 
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ROUTINE DBGSSCR_SCROLL_SOURCE DOWN(DISPID, AMOUNT) = 


! FUNCTION 

This routine scrolls the window down over a source display a specified 
number of Lines. It accepts as input a pointer to the Screen Display 
Entry of a erag er to be scrolled down ond the amount by which it is to 
be agres ted. it then determines if the display can be scrolled entire- 
ly “in memory", i.e. within the Display Line Entries Band attached 


ao 
— 


to the display. If it this routine returns FALSE and 


y can ets the 
caller (namely DBGSSCR_SCROLL_DISPLAY) do the actual scroll 


ng. 


If the eisoloy 
the current d opley contents 
calls DBGSSRC_TYPE LNUM_ SOURCE to read in a range of source Lines 
around that céntral Line number. It does the og al age a 
to allow a ogrotlion count to be computed for the display he 
fan ey has been fill 


INPUTS 
DISPID = The Display ID (a pointer to the Screen Display Entry) of 
the source display to be scrolled. 


AMOUNT = The number of Lines by which the DISPID display is to be 
scrolled down. This number must be zero or positive. 


PAEAEAEAAAAAAAAAAAA SO 


OUTPUTS 
If this routine scrolled the DISPID cheese » then TRUE is returned as 
the routine value. If the DISPID display was not scrolled 
because there is no need to read in more source Lines into 
the display, then FALSE is returned as the routine value. 


ESESEEEEE RO Oee, 


SISOS ARAL AL ADGA 


kt tk 8 et a a et a a et ts a = a as 2 8s a 2 st 


BEGIN 


P 
DISPID: REF DBGSDISP_ENTRY; ! Pointer to Display Entry to scroll 


yah ah ah ab 4b 4h ah ah al 
FPOAAPAOCAOAOAO 


OCAL 
CENTRAL_LINE, 
DLEPTR: REF DBGSDLINE_ENTRY, 


L 

INVSCR_FLAG, 

SAVED_REXT_LNUM, 
SAVED-SCREEN_SOURCE: VOLATILE; 


Central Line number for new source 
Pointer to Screen Display Line Entry 
Temporary pointer to Error Line Entry 
Saved invalidate-scroll-count flag 
Saved value of DBGSSRC_NEXT_LNUM 
Saved value of DBGS$GL_SCREER_SOURCE 


FUSUSUSISI SII ES Be BS BS EE EE HNN NA NII AIAN 2 2 


NAME WN 0 ODA UNE WN OO OO NOU EWN 0 COONAN EAR "OOONOU EW 


NABLE 
HANDLER_SCROLL_ SOURCE ( ' Condition handler to restore the 
SAVED_SCREEN_SOURCE); ! value of DBGSGL_SCREEN_SOURCE 
: in case of error condition 


SPOAAASOAOAS 
ww ww 


' We release all Error Line Entries attached to the display whenever it is 
: scrolled vertically (up or down). 


DLEPTR = .DISPIDCDBG$L_DISP_ERROR_PTR); 


DV DVDPVDV DPV LV PVPVPVDVDVSDUDVDVSIVDVSPUSVLVSVIILVSIVSVSUSVIVSISUSVSU STII SUSIIST ST STII ISIS IOSIOSIOSIOSIOSIOSISISIOS 
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SEE) eS police Ee EOE ar a en Ae Re Ee Pa DONT a 


W111 
ecSepetoge 13:17:48 — EdkauG. Sec SbacscReeN.859; 1 Poe 235 


; 567 767 DISP joteess, Pie “Te PTR) = 0; 

: Bene 189 coq © wheally 

: 5681 8 FLINK = .DLEPTRCDBGSL_DLINE_FLINKI; 

; 36 ¢ 771 DBG SREL MEMORY. arr PTR); 

3; 56 ore pare = .FLINK 

>; 5684 77 END; 

eke ihe 

: 568 5176 ! If the source display can Po scrolled the desired amount entirely within 
3; 5688 77 ! the Display Line Entries it already has in memory, return immediately 
; i 78 ; with the value FALSE. This tells the caller to do the scrolling. 

; $3) reo if Nota ee DISP of Teetd fF THEN Gath n catses 

; 237 ores - ; (. esttitie “DISP “ INECNT - .DISPIDCDBG$W_DISP_RLEN] + 1) 
; 695 $78 RETURN FALSE; 

; 569 3786 IF .DISPIDCDBG$L_DISP_WINDOW_PTR] EQL 0 THEN RETURN FALSE; 

: 3695 2788 

: 5700 ht !' The display will have to be scrolled by reading in a new range of Line 
; 5701 790 ' numbers centered around the Line to which the user wants to scroll. 

; 3708 5791 ! Compute the new central Line number around which we will request a range 
; 3706 2738 of source Lines. 

: 5705 579% DLEPTR = .DISPIDCDBGSL_DISP WINDOW PTR); 

3 3707 ary? 1F ;DLEPTREDBGSL_ DLINE-LINUA] LSS 0 

: 3708 3797 DLEPTR = WINDOW_SOURCE_LINE(.DISPID, TRUE); 

: 5710 5799 CENTRAL_LINE = MAX(. "RING. DISPIDE DISP_MINLINE), 

3; 5711 5800 MIN(.DISPID 8 B68. mt te $P MAXLINE), 

3; 571 5801 -DLEP L_BLINE_LINUM) + 

3 3718 2008 Moat DISP-RLEN) = 1)/2 + .AMOUNT)); 
an Be 

; 2zt8 5805 ! If CENTRAL_LINE is the very last Line of the module's source text, set 
$ Hae 2806 ; t the SCROLL-T0_B bot Tom flag for the DBGSSCR_SOURCE_END routine. 

: 5719 5808 SCROLL FALSE 

FY sf 30? ek tah tie Or INE EOL “DISPIDCDBGSL _DISP_MAXLINEJ 

> 57 ; ait SCROLL_TO_BOTTOM = TRUE; 

ie RN 

: 7 14 ! No — ba anew range of source lines centered around the new central 
H 35 i 3Bis : Mee & { Rout tnok DEGSSER SOURCE _BEGIN et a SOURCE _LINE, and 
; 57 sig : DBGSSCR- nSOURCE END will do the actual “scrolli ing of the source display. 
; 5728 1 ! Note that we preserve DBGSSRC_NEXT_LNUM (the next Line number for some 
3 g 9 B18 : of the source display commands) over a scrolling operation. 

3 5731 Q SCROLL_AMOUNT = . AMOUNT; 

: 353 FINED -SEROCE sia eth ye: 

> 5734 5 MARKL TNE _DISABLE = TRUE; 


—~ 


iecbeoctge 02:80:21 pane! Blige 


SAVED_NEXT_LNUM = ,DBGSSRC_NEXT_LNUM; 
SAVED-SCREEN SOURCE = .DBGSGL_SCREEN. SOURCE; 
ec REEN SOURCE = .DISPIO; 
DBGSSAC_TYPE_CNUM NUM. SOURCE (-DISPLDCoBGSL _ DISP RODPTRI, 
-CENTRAL_LINE, 0, -CENTRAL_LINE, 0, FALSE, FALSE); 
DBGSGL_SCREEN SOURCE =  SAVEB_ SCREEN. SOURCE; 
DBGSSRC_NEXT_CNUM = .SAVED_NERT_LNUM: 


} We are all done scrolling the source display. Now return. 
RETURN TRUE; 
END; 


OOFC 00000 DBGSSCR et aa SOURCE _D 


Save aon’ R3, ms, RS. 56 R7 


57 000000006 00 9€ 90002 MOVAB DBGS$SRC_NEXT e 
56 00000000' EF 9€E 0000 MOVAB DBGSGL ~SCREER LH OURC . 
55 00000000' cf 9€ 00010 MOVAB scr OLL~T0_BOTTOM, 
D4 00017 CLRL SAVED SCREEN. SOURCE 
6D 0002 —sCF DE 0019 MOVAL 10$, TP) 
3¢ 06 AC D O01g MOVL  DISPID, R2 
‘ ¢ A2 00 000 MOVL 44(R2). DLEPTR 
£ A2 04 00026 CLRL 44(R2) 
5 D3 00029 1$ TSTL DLEPTR 
11 13 00028 BEQL = 2S 
54 63 D0 00020 MOVL (DLEPTR), FLINK 
53 DD 000 PUSHL DLE R 
000000006 99 gi FB 000 H CALLS DBGSREL_MEMORY 
§ 4 pO 000 MOVL rfece DLEPTR 
cB 11 0003¢ BRB 
OA A2 1 000 § a8: BBC #3, 10(R2), 4 
00AG 1 00043 3$: BRW 93 
51 18 A2 3¢ 0046 4s: MOVZWL 24(R2) 
51 08 ac CO 0 4A ADDL2 T, R 
50 1 A2 3C 0004 MOVZ2WL 30(R2), RO 
54 12 A 00 MOVZ2WL 18(R2). R4 
50 t2 00 § SUBL2. R4, RO 
9 D INCL RO 
50 p B CMPL =e R1, RO 
E3 05 BLEG 46-3 
28 A2 05 000 TSTL  40¢R2) 
DE 1 006 BEQL «6s 3$ 
53 28 Ae D0 0006 MOVL  40(R2), DLEPTR 
1 A : 69 TSTL 16(DLEPTR) 
C 6C BGEG }460s«S$ 
1 oD PUSHL #1 
DD PUSHL R 
0000v CF g FB 7 CALLS #2, WINDOW _SOURCE_LINE 
3 p 7 MOVL oR DLEPTR 
1 12 A ¢ 7A S$: MOVZWL 18(R2), R1 
51 D 7E DECL =I 


iesbeor3ge Q3:70:2) WSU! Shlssade abe ehZ8, Paoe t5) 


50 08 ac 00 
50 04 A 0 MO 4(RO), RO 
FC PUSHAB SAVED SCREEN_SOURCE 


06 =A ) 


7E MO 4(AP), =(SP) 
0000v CF 03 FB CALLS #3, HANDLER_SCROLL_SOURCE 


1 02 ¢ DIVL a1 ; 
1 10 {1 ¢ ADDL Tipe PTR), R1 : 
1 08 ac ¢ ADDL UNT, : 
9 44 Ad D MOVL  68(R2), RO : 
: O8F CMPL «=O, RV : 
2 BLEQ = 6 : 
9 1 D 94 MOVL 1, RO : 
40 Ae Dd 97 6$: MOVL gine), R1 + 5800 
0 D 98 CMPL «=e, -RO : 
; 1 0 BGEO If : 
3} 1) A MOVL age : 
0 1 D A3 7%: MOVL CENTRAL LINE : 5799 
5 D4 Ne CLAL Chore TO. 80 : 5808 
44 A2 9 D1 000 CMPL NTRAC LINE, 68(R2) : 5809 
12 OOOAC BNEQ : 
65 1 DO 000A MOVL #1, SCROLL_TO_BOTTOM : 5811 
FC OAS 08 AC DO 00081 8$: MOVL T, SC T : 5820 
£800 ¢5 1 pO 000 MOVL #1, FIXED _SCROCL_AMOUNT : 3821 
—8D4 5 1 pO 0008 MOVL » FIXED“SCROLL VALID : 58 : 
E8DC £3 1 pO 000C MOVL wi ar 5 -PISRBLE xt. : 582 
67 DO 000¢ MOVL  DBGSSRC_N : 3826 
6E $ DO 000C8 MOVL p GSGL SCREEN ote “SAVED. SCREEN. SOURCE ; 5825 
66 b0 00cB MOVL DBGSGL_SCREEN_SOURC : 386 
E 7C 000¢ CLRO = Beep) : 5827 
ze D4 90 CLRL (SP) : 
50 DD 0000 PUSHL CENTRAL_LINE : 5828 
ze D4 00004 CLRL. = : 5827 
50 DD 00006 PUSHL NTRAL_LINE : 5828 
Ae DD 00008 PUSHL (R2) : 5827 
0? FB 000D CALLS DBGS$SRC_TYPE_LNUM_ SOURCE : 
of ) poe MOVL SAVED” SCREER_SOURCE, Bacsor SCREEN. SOURCE ; 3829 
d0 € MOVL SAVED .N EXT_LAUM, DBGSSRC -NERT_LNUM ; 5830 
01 : 5835 
: $837 
3; 5743. 


34 
00000000G 00 
; 0 
0 DO O00ES MOVL “i, RO" 
04 000EB RET 
50 D4 OOOEC 9$: CLAL RO 
4 000 RET 
0000 OOOEF 10%: -WORD Save nothing 
00 MO 8(AP), RO 
00 
00 
00 
5 
1 
01 
01 
; Routine Size: 266 bytes, Routine Base: DBGSCODE + 3205 
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GSCREEN 16-Sep-1984 02:30: AX-11 Bliss-32 v4.0 
Miteeit 1o-808=1 382 96:70:24 DEBUG. SRC IDBGSCREEN 

i ° ; ROUT INE DBGSSCR_SCROLL_SOURCE_UP(DISPID, AMOUNT) = 
7 g i FUNCTION 
7 : This rout ing scrolls the window yp over @ source areoeey a specified 
754 : number of Lines. It accepts as input a pointer to the Screen Display 
755 : Entry of a display to be scrotted up 2 he amount by which it is fo 
? 4 ; be agrot ted. ,2t then determines if the display can be scrolled entire- 
7 5 ! ly “in memory’, i.e. within the Display Line Entries already attached 
7 : § : to the display. If it can, this routine returns FALSE and lets the 
r28 caller (namely DBGSSCR_SCROLL_DISPLAY) do the actual scrolling. 
761 rk i If the disetoy cannot be scrolled “in memory’, this reytine discards 
76 4 ' the current d splay contents, computes a new central Line number, and 
76 1 : calls DBGSSRC_TYPE LNUM_ SOURCE to read in a range of source Lines 
764 26 ! around that céntral Line number. It does the necessar age 
765 5 : to allow a scrotlior count to be computed for the display. After the 
706 54 : rcp er has been filled with the new source Lines, this routine returns 
tH H TRUE to indicate that the scrolling operation has been fully completed. 
763 837 settee The Displ ID ¢ int to the § Displ Entry) of 

! - The Displa 3 nter to the Screen Display Entry) o 
aa 528 the source display te be scrolled. a 
77 861 i AMOUNT = The number of Lines by which the DISPID display is to be 

74 ae6 } scrolled up. This number must be zero or positive. 

i 

4 

i 

i 


3 


RIPDRIPIPIPIHIPIPIMPNDAINIMINDPIPIMPIPIADPIDINIAIYD at a ta a nnn i a tk at at ot od 2 = oo 
_ 
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OUTPUTS 
If this routine scrolled the DISPID dis +f then TRUE is returned as 
i 


~“ 
Now 


the routine value. If the DISPID display was not scrolled 
because there is no need to read in more source Lines into 
the display, then FALSE is returned as the routine value. 


$3 
ss 


SANS 
Nw 
co 
NOUSWN CO O0O®@ 


BEGIN 


SaaS 
SUS 


Pp 
DISPID: REF DBGSDISP_ENTRY; ! Pointer to Display Entry to scroll 
LOC 


SSN NNO 


AL 
CENTRAL_LINE 
DLEPTR: REF DBGSDLINE_ENTRY, 


VSCR_FLAG, 
SAVED_REXT_LNUM, 
SAVED-SCREEN_SOURCE: VOLATILE; 


“I 
oe 
<3 


Central Line number for new source 
Pointer to Screen Display Line Entry 
Temporary pointer to Error Line Entry 
Saved inva Weotenes res \aceune flag 
Saved value of DBGSSRC_NEXT LNUM 
Saved value of DBG$GL_SCREER_SOURCE 


os 


$2833 


90000009 
MEW —O OO 


ENABLE 
HANDLER_SCROLL_ SOURCE ( ! Condition handler to restore the 
SAVED_SCREEN_SOURCE); ! value of DBGSGL_SCREEN_ SOURCE 
: in case of error condition 


! We release all Error Line Entries attached to the display whenever it is 
scrolled vertically (up or down). 


DLEPTR = .DISPIDCDBGSL_DISP_ERROR_PTR); 


PAR AD AD Ae Ah Ae ch AP Ad AP A AP Ae AP Ap AD Ah AO AE PAD AD AD AD AD Ah Ab Ap AD ADAP ADAP AD AD AD AD AD AD AD AD AD AD AD AD AO AD AD AD AD Aw AO AH AO Aw Ae 
o 
ww 


ye ae Ar AAD Ae peer eeenenentns near th tngnteteseeeenenonsnenseen een ene sateen sed 
co 
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; 7 95 pisrotpess DESE -FRROR PTA) = 0; 
; 38 ee R NEQ™O DO 
3; 581 $8 FLINK = .DLEPTRCDBGSL_DLINE_FLINK); 
H 1 DBGSREL_MEMORY(.DLEPTR); 
; =. ; 
\§ DLEPTR FLINK 

; 581 END; 
: eels 308 
3 Sig 904 ! If the source by He 4 can be scrolled the desired amount entirely within 
; 581 905 ! the Display Line Entries it already has in memory, return immediately 
3 + 447 with the value FALSE. This tells the caller to do the scrolling. 
3; 5820 908 IF Mi totiee es! DISP gin THEN RETURN ft a 
; 5821 909 IF (.D1SPID DBG$O_DISP DROW] = .AMOUNT) GTR O THEN RETURN FALSE; 
; : ¢ 319 IF .DISPIDCOBGSL_BISP_QINDOW_PTR] EQL 0 THEN RETURN FALSE; 
> 5824 91 
3; 5825 31 ! The display will have to be scrolled by reading in a new range of Line 
3; 58 $ 914 ! numbers centered around the Line to which the user wants to scroll. 
3; 58 915 ! Compute the new central Line number around which we will request a range 
3 : : 3i8 : of source Lines. 
3; 38 4 DLEPTR = s1SE 10COOSS PI St WINDOW PTR); 
3 DL L_DLINE_L L 

: 1 ai3 cot EPTRCDBGSL_DLINE_LINUA) LSS 0 
3 $538 ; 1 DLEPTR = WINDOW _SOURCE_LINE(.DISPID, FALSE); 
3; 5835 9 : CENTRAL_LINE = wate 1 Ye St 303, DISP_MINLINE], 
; 58 924 MIN(.DISPIOCOBG DISP MAXL INE J 
3 583 925 -DLEPTRCDBGSL_BLINE_LINUM) + 
; te ; $ (.DISPIDCDBG$O_DISP-"RLEN] - 1)/2 = .AMOUNT)); 
; 5840 39 8 
3; 5841 929 ! Now read in a new range of source Lines centered around the new central 
; Hak 5930 ! Line number. Routines DBGSSCR_SOURCE_BEGIN, DBGSSCR_SOURCE_LINE, and 
3 384 33) i DBGSSCR_SOURCE_END will do the actual scrolling of the source display. 
3 5844 9 § ! Note that we preserve DBGSSRC_NEXT_LNUM (the next Line number for some 
3 ze? $34 : of the source display commands) over a scrolling operation. 
; aReo 935 SCROLL_AMOUNT = =. AMOUNT; 
3; 5848 338 FIXED _SCROLL_AMOUNT = TRUE; 
3; 5849 9 FIXED SCROLL_VALID = TRUE; 
3 520 9 3 SCROLL TO_BOTTOM = FALSE; 
; 585 9 MARKLINE BISABLE_FLAG = TRUE; 
; 5¢ 940 SAVED_NERT_LNUM = .DBGSSRC_NEXT_LNUM; 
3; 585 941 SAVED" SCREEN SOURCE = .DBGSGL_SCREEN_SOURCE; 
3; 5854 Bee DBGSGC_SCREER SOURCE = .DISPID; 
3; 5855 94 DBGSSRC_TVPE_CNUR_SOURCE(-D1SPIDCDBGSL_D1SP MODPTR), 
3 326 944 ° L_LINE + sCENTRAL_LINE, 0, FALSE, FALSE); 
3 32 945 DBGSGL_SCREEN_SOURCE = .SAVED SCREEN. SOURCE; 
3 28 94 DBGSSRC_NEXT_CNUM = .SAVED_NERT_LNUM; 
: 38R0 36 
: 5861 949 ! We are all done scrolling the source display. Now return, 
; ees 951 RETURN TRUE; 
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| DBGSCREEN Sep-19 AX-11 Bliss-32 v4.0-7%4 Pp 08 
4 yexgeen18Rs $SiF9:2h = HONE Shiegede Neel“ 28s 29° 46) 
6f 06 MOVL p a screen SOURCE, SAVED SCREEN SOURCE ; 5941 
p MOVL D6 SCREEN_ SOURCE : 24g 
; CLRO : 59% 
t D CLRL $6) ; 
3 DD PUSHL a + 5944 
D4 CLRL. = = (SP) : 5943 
x 2B pest Speen tin : 348 
000000006 00 07 F CALLS DBGSSRC TYPE a nun SOURCE ; 
‘ D (8 MOVL SAVED” SCREER,S BaGSGL SCREEN. SOURCE : 5945 
é D CB MOVL SAVED™ T LRM. g TAs; LNERT_ + 5946 
0 1 bo CF MOVL #1, Ro : 5951 
D RET ; 
50 D4 00002 8S: CLRL =—-« RO + 5953 
4 00004 RET : 
00 ¢ 9$: WORD sexs nothing ; 5871 
50 08 AC D D MOVL (AP), RO : 
0 4 AO D DB MOVL 4(RO). RO : 
FC AO oF DF PUSHAB SAVED_SCREEN, SOURCE : 
1 DD 000E2  PUSHL F 
E i O0E4 PUSHL SP : 
7E 04 AC D00E6 MOVO. 4(AP), =(SP) : 
0000v CF 03 FB OOOEA CALLS #3, HANDLER, SCROLL _ SOURCE ; 
be OOOEF RET ; 


; Routine Size: 240 bytes, Routine Base: DBGSCODE + 330F 
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| DBGSCREEN 18-56 1984 02:30:2 Ax-11 Bliss-32 
¥002000 12280 8=1 38 95:79:24 DEBUG. SRC 1DBGS 
H ope? ogee 1 GLOBAL ROUTINE DBGS$SCR_SOURCE_BEGIN(OLD_LOW, OLD_HIGH, 

3 508 92? : NEW LOW, NEW_HIGH, MODRSTPTR, ALL_DONE_FLAG): NOVALUE = 
; $870 2989 1 ! FUNCTION 

; 5871 5958 1! This routine sets up the output of source Lines to a SOURCE screen 

3 ob7¢ 2323 1! display. It also computes the range to source Lines to get for this 

; 587 960 1! display based on the display size. After this routine is called, calls 
; 3874 5961 1! on DBGSSCR_SOURCE LINE are used to actually output the individual lines 
; eee? eoc8 : to the current SOORCE display. 

; 5877 5964 1! This routine accepts a Line number range and a Module RST Entry pointer 
; 5878 5965 1! as input. The line number range is derived from the source display 

; 5879 5966 1! command which is being intercepted--it usually consists of only a 

; 5880 5967 1! single Line. The output of this routine is a modified Line number 

; 5881 5968 1! range which is calculated to produce a suitable number of Lines around 
; 5882 5969 1! the central Line of the opcgrnes range, given the size of the screen 

; 5883 5970 1! display. The Module RST Entry pointer is saved in the selected SOURCE 
3 att: e003 ; Screen Display Entry and is later used to retrieve the module name. 

; 5886 2398 2 In order to prevent unnecessary 1/0, this routine checks whether the 

; 5887 5974 1! screen display's Line ee List already contains the entire range of 

; 5888 5975 1! Lines needed to fill the display's screen window. If it does, the 

; 5889 5976 1! display is simply scrolled (the window pointer, DROW, and scrollin 

; 5890 5977 1! count are computed and set), and TRUE is returned to the ALL_DONE_FLAG 
; 5891 5978 1! parameter. This tells the caller to omit the reading of source Lines. 
3 2898 5979 1! 

; 589 5980 1 ! INPUTS : 

; 5894 5981 1! OLD_LOW - The lower Line number of the original Line number range 

3 3892 cong : requested by the intercepted source Line display command. 

; 5897 5984 1! OLD_HIGH = The upper Line number of the original Line number range 

3 +434 ooa2 : requested by the intercepted source Line display command. 

; 5900 5987 1! NEW_LOW - The address of a longword location to receive the lower Line 
; rH 443 ! number of the recomputed Line number range. 

; 5903 5990 1! NEW_HIGH = The address of a longword location to receive the upper Line 
3 aope rod : number of the recomputed Line number range. 

3; 5906 5993 1! MODRSTPTR = A pointer to the Module RST Entry of the module from which 
read 293¢ : source Lines are being displayed. 

; 5909 5996 1! ALL_DONE_FLAG - The address of a longword location to receive a flag 

3 5910 5997 1! value saying that the source operation is all done when 

; 5911 5998 1! this routine returns. 

3 2ai§ 5999 1! 

3; 591 6000 1 ! OUTPUTS 

3 5914 6001 1! NEW_LOW - A recomputed lower Line number is returned to the NEW LOW 

3; 5915 6002 1! location. This recomputed lower bound will actually Be 

; 3518 one : } used when source Lines are retrieved from the source files. 

; 5918 6005 1! NEW_HIGH = A recomputed upper Line number is returned to the NEW_HIGH 

; 5919 6006 1! location. This recomputed upper bound will actually be 

3 aa50 reait4 ' used when source Lines are retrieved from the source files. 

; 5992 6009 1! ALL_DONE_FLAG = The value TRUE is returned to ALL_DONE_FLAG if the 

3; 592 6010 1! desired range of source lines is already in fhe current 


Page 209 
. (47) 


Be Se Se Ge Fe Ge Se Se Ge Se Se Se Se Se Se ee Se Se Se Se ee Se Se Se Se ee Se See Se ee ese ee Ge Sean 


12 
DBGSCREEN 1§-56 -1984 02:30: AX-11 Bliss-32 V4.0-74 Page 210 
vOe~000 12280 8= 1384 95:79:28 DEBUG. GRCIOBGSCREEN B49: 1 . (47) 
3 28 4 6011 1! source display data structure. The significance of this 
; 5925 ents 1! ig that there is no need to read in any more source Lines 
; 5926 6015 1! since we already have the desired source Lines. FALSE is 
; 5927 6014 1! returned if we do not have all needed source Lines, in 
; 5928 6015 1! which case more must be read in from the source files. 
; 5929 ooig 1! 
; 59350 6017 1 
; 5931 6018 BEGIN 
; 2338 6019 
; 593 6020 MAP 
>; 5934 6021 NEW_LOW: REF VECTORC1,LONG) ! Pointer to new lower Line number 
; 5935 opes NEW-HIGH: REF VECTORC{,LONGS, ‘ Pointer to new weeee Line number 
; 5936 60 ALL_DONE_FLAG: ! Pointer to the a Pag tag which 
; 5937 6024 REF VECTORC1,LONG); ! says we already have the source 
; 5938 6025 2 ! Lines being requested 
3; 5939 6026 2 
; 5940 6027 2 LOCAL 
; 5941 6028 § CENTER_LINE, ! Central Line number of display text 
>; 594 e594 DISPTR: REF DBGSDISP_ENTRY, ! Pointer to Source Screen Display Entry 
3 594 6030 2 DLEPTR: REF DBGSDLINE_ENTRY, ' Pointer to Source Display Line Entry 
: 5944 6031 2 MAXLINE, ! Maximum Line number in desired range 
>; 5945 6032 2 MINLINE, ! Minimum Line number in desired range 
3; 5946 6033 2 SCROLL_AMOUNT, ! Amount to scroll display if display 
3; 5947 6034 2 ' already has the desired Lines 
; 5948 6035 2 SIZE; ! Number of source lines to get for 
3; 5949 6036 § : this display 
; 5950 6037 
; 5951 6038 2 ABEL 
; 5952 6039 2 CHECK_HAVE_LINES; ! Block that checks whether we already 
3; 5953 6040 2 ! have the desired range of lines 
3; 5954 6041 2 
3; 5955 6042 2 
3; 5956 6043 2 } 
; 5957 6044 2 ! Pick up the pointer to the SOURCE Screen Display Entry. Check it and 
; 5958 6045 2 ! the input parameters for validity. 
3; 5959 6046 2 ! 
; 5960 6047 2 DISPTR = .DBG$GL_SCREEN_SOURCE; 
3; 5961 6048 § IF .DISPTRCDBG$B8_DISP_KIND) NEQ DBGSK_DISP_SOURCE 
: 2308 6049 HEN 
; seer $030 2 $DBG_ERROR("DBGSCREEN\SOURCE_BEGIN 10°); 
; gee 083 5 IF .OLD_LOW GTR .OLD_HIGH THEN SDBG_ERROR('DBGSCREEN\SOURCE_BEGIN 20"); 
3 9d 6054 
: 3968 6055 ! If we came in because of a TYPE or EXAMINE/SOURCE command, mark the 
; 5969 6056 ! fixed-scroll-amount "Leg as false. This flag should only be true if we 
: 5970 6057 ! came here because of SCROLL command which requires more source lines 
3; 5971 6058 ! to be read into the scrolled display. The flag is later used in the 
; 2a§ eth DBG$SCR_SOURCE_END routine to determine the scrolling count. 
3 29h 6061 IF NOT .FIXED_SCROLL_VALID THEN FIXED_SCROLL_AMOUNT = FALSE; 
3; 5975 606 FIXED_SCROLL_VALID ="FALSE; 
3 ens 606 
; 597 6064 ‘ : 
3; 5978 6065 ? ! Check whether we already have the source Lines to be display in the 
3 da 606 ! Screen Display Line Entry List for this source diplay. If so, there 
; 5980 606 ! is no need to read them in from the source file. 
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$DBG_ERROR(*DBGSCREEN\SOURCE _BEGIN 30°); 
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voce ae 7 95:79:24 DEBUG. SRC IDBGSCR NEEN.B3951 ° (47) 
; 5981 606 : 

: 404 60 CHECK_HAVE_LINES: 

; 598 6070 BEGIN 

>; 5984 6071 

; 5985 607 

; 5986 607 ! If the source module to pe Grenteved is different from the module we 
; 5987 6074 ' have in this screen ie ay, we mu ead in the source Lines iron 

; 5988 6075 ' the source file, so we leave CHECK SHAVE LINES. Similarly, if the 

3 2355 eit display does not at present have any Lines, we leave. 

; 5991 6078 IF (.MODRSTPTR NEQ .DISPTRCOBGSL pists MODPTRJ) OR 

3 2338 6079 4 (2D ISPTRCDBG$SW_DISP_LINECNT) EQi 

; 599 6080 

3: 5994 6081 LEAVE CHECK_HAVE_LINES; 

3; 5995 608 

; 5996 608 

; 5997 6084 !' Compute the new range of Line numbers we want to display in the 

; 5998 6085 ; screen display's window. 

; 5999 6086 

; 6000 6087 CentER oy -OLD_LOW + (.OLD_HIGH = .OLD_LOW)/2; 

; 6001 6088 MINLINE = MAX(. DisPTALDaGSL DISP_ eth ty 

3; 6002 6089 LIN (.DISPTR DBGSW_ DISP_RLEN] = 1)/2); 

; 6003 6090 MAXLINE = MIN(. visprn DBGEL “DISP MAXLINE], 

; 6 6091 NLIN TDISPTRLDBGS$W_DISP -RLEN] = 1); 

; 6005 609 MINLINE = MAX(, DisPiR DBGSL_DISP BINL INET, 

3; 6006 609 «MAXLINE = [DISPTRCDBG$W_DISP_RLEN] + 1); 

; 6007 6094 3 

; 6008 6095 ; 

; 6009 6096 ! See if this range of Line numbers is already present in the Screen 

3; 6010 6097 3 : CWEEK A Line Entry List for this screen display. If not, we leave 

: dh ones ; CHECK_HAVE_LINES so that the Lines are read in from the source file. 
3; 601 6100 3 DLEPTR = .DISPTRCDBGSL Sat START_LINE_PTRJ 

3 6014 6101 ; IF .DLEPTREDBGSL DLINE-LINUA] GT oBint Ine THEN LEAVE CHECK_HAVE_LINES; 
; 6015 $108 DLEPTR = .DISPTRIDBGSL “DIP END ot Pp 

; 60s ol; 3 IF .DLEPTRODBGSL _DLINE-LINUA bss. NAAXLINE THEN LEAVE CHECK_HAVE_LINES; 
3; 6018 6105 ; 

3; 6019 6106 ! The desired range of source Lines is already in the Screen Dis how 

; 6020 6107 ! Line Entry List. Now determine whether to scroll up or down t 

3; 6021 6108 ! display to get the desired Lines in the screen window. If we aust 

3; 6022 6109 ' scroll up we determine the scrolling amount in the up direction by 

; on? oi? ; counting how many Lines the window pointer must be moved up. 

: 6025 otis SCROLL et = Tati 

3 6026 611 DLEPTR™= SBGSL_DISP_WINDOW 

3 6027 6114 IF -DLEPTR baGst _DLINE-LINUM] GEQ “RINCINE 

3; 6028 6115 THEN 

3; 6029 6116 4 BEGIN 

3; 60350 6117 4 WHILE .DLEPTRCDBGSL_DLINE_LINUM] GTR .MINLINE DO 

; 6031 6118 5 BEGIN 

3; 603 6119 5§ SCROLL am psceout wat 

3; 603 6120 5 DLEPTR’= .DLEP REDBGS BLINE 

3 6034 6121 5 IF .DLEPTR EQL “DISPTR BBGS$L SiSP. Sdiat LINE _PTR) 

3; 6035 61 ; é THEN 

; 61 

; 6124 § 


ossinee 


a a el a a el el a ce ae ee a a ae oe a a a a el el a el al el el a a a el el el el el el a el a el el el a el 
DODD NN SPP PDA DADA DAD MH BB BB BEE EE PAWN IInonononenp 


‘rat Be Be Be Se Oe Se Se Be Se Se Be Se Se Se Se Fe Se Se Fe Se Se FF Se Se Ss Se Ge Se Fe Se Se Se FH Se Se Se Se Gs Se Se Se Ge Se Se Se Se Se Se Se ee Ge FH Se Se Se See 
SOACAOAACAAOAO o 
- s MAMA 
4 Lal —“OOONOUSE Ooo 
FAAASAASAAAAAAAAAAAAAAAAAAASAAAAAAAAAAAAAAAPAAAAAAAAAHAAAASAAAO 
=O OONO VE WN 0 OO NOU EWN SO ODNOA UNE WN 0 OD VNOAU EWN (OO OOVNOUE WN OOONOu 


12 
y$-Se0-1986 02:30:2)  YAN-11 BLigsc32 ve. 0-762 Page 212 


END; 
END 
! Else we must scroll down. We determine the scrolling amount in the 


! down direction by counting how many Lines the window pointer must be 
! moved down. 


Measasace 
i 
w 
Mm 


gPLEPTAacoesse DLINE_LINUM] LSS .MINLINE DO 
ROLL _ AMOUNT TR tberere weak } = 
EPTR'= .DLEPT CoBGs BLINE 
DLEPTR EQL DISPSR pats eBISP asia _LINE_PTRI 
$DBG_ERROR("DBGSCREEN\SOURCE_BEGIN 40°); 
END; 

END; 

Now set the updated window pointer, od lyst the DROW value (display 


row location of start of window), and in the scrolling count. 
Also set the center Line number in the Display Entry. 


CU0COC.-.-.--- 


DISPTRCDBG$L_DISP_WINDOW_PTR] = .DLEPTR; 
ISPTRCDBG$W_DISP_DROW) = 2D sp TRODBGSW. DISP_DROW] + .SCROLL UNT: 
ISPTRCDBGSW U-DISP SCROLL -DISPTRLDBGSwW_DISP SCROLL} + OE ROLE _AMOUNT ; 
ISPTRCDBGS$L_DISP- CENTER MAX(, DISPTREDBGSL BISP_MINLINE), 

MIN(. DISPTRCDBGSL _DISP TWAXLINE), PrENTER _LINE)); 


' Set the next Line number (as used by the parameter-less TYPE and 
; SEARCH commands) to be the specified center Line plus one. 


DBGSSRC_NEXT_LNUM = .DISPTRCDBGSL_DISP_CENTER) + 1; 


Unless the user is typing a range of Line numbers (as opposed to a 
serait Line) and unless marking is disabled because we are simply 
accalting, ma “ere pe central Line as the Line to be marked with a 
n the display. 


' 
i 
i 
i 
i 
DISPTRCDBGSL_DISP_MARKLINE) = 
iF (,OLD_LOWEQL TOLD_HIGH) AND ‘inot .MARKLINE_DISABLE_FLAG) 


 DISPTRCDBGSL_DISP_MARKLINE) = .CENTER_LINE; 
MARKLINE_DISABLE_FLAG = FALSE; 
! The screen display is now positioned correctly at the desired range 


' of source Lines. Since there is no further need to read in any 
i source Lines, we set the ALL DONE _FLAG and return to the caller. 
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14-Sep-1984 95:79:24 DEBUG. SRC IDBGSCREEN.B3 31 . (47) 
61 ‘ 
61 : ALL_DONE_FLAG(O] = TRUE; 
2, : RETORN; 
e) § END; ! End of CHECK _HAVE_LINES block 
61 
61 § ! We do not yet have the desired source Lines in the Display Line Entry 
$13) List. Hence we set the ALL _DONE_FLAG to FALSE. 
6198 ALL_DONE_FLAGCO] = FALSE; 
eg 
6195 ! Save all information from the current contents of the Screen Display 
0136 ! Entry that we will need to compute a scrolling count at the end of 
ap 4 } the source retrieval operation. 
6199 INVSCR_FLAG = .DISPTRIDBG$V_DISP_INVSCRI; 
? 4 ay -INVSCR_FLAG) AND ({DISPTRCDBG$W_DISP_LINECNTJ GTR 0) 
6 8g BEGIN 
620 SAVED_SCROLL = .DISPTRCDBG$W_DISP_ SCROLL): 
6204 TOP_OFFSET = .DISPTRCDBG$W_DISP_DROW) - 1; 
6205 OT OFFSET = At oad DBG$W_DISP_LINECNT) = .DISPTRIDBG$W_DISP_DROW]; 
6206 DLEPTR = .DISPTRCDBGSL_DISP_START_LINE PTR): 
6207 TOP_REF_FILEID = .DLEPTRCDBG$W_DLINE_FILEID); 
6208 TOP_REF_RECNUM = .DLEPTRLDBGSL_DLINE_RECNUM); 
6209 DLEPTR = .DISPTRCDBGSL_DISP_END LINE_PTRI; 
6210 BOT_REF_FILEID = .DLEPTRCDBG$W_DLINE_FILEID); 
6211 BOT_REF_RECNUM = .DLEPTRCDBGSL_DLINE_RECNUM); 
6 \¢ END; 
6514 
ost? Empty the specified display of all its current contents. 
ei DBGSSCR_EMPTY_DISPLAY(.DISPTR); 
631 
6220 ! If the source text is coming from a new module than before, set the new 
6221 ! Module RST Entry pointer in the Display Entry and invalidate the scroll- 
62 § ! ing count. We also initialize all source Line number information for the 
e Z display. including the Line number range of the module. 
6 5 If MODRSTPTR NEQ .DISPTRCDBGSL_DISP_MODPTR) 
6 $ BEGIN 
6 § DISPTRCDBGSL_DISP_MODPTR] = .MODRSTPTR; 
6 § DISPTREDBGSV_DISP_INVSCR) = TRUE; 
6250 DISPTRCDBGSL_DISP_MARKLINE) = -1; 
6231 DBGSSRC_LNUM-RANGE( .MODRSTPTR, 
6 § DISPTRCDBGSL_DISP_MINLINE], DISPTRCDBGSL_DISP_MAXLINE)); 
6 INVSCR_FLAG = TRUE; 
6234 END; 
? 5 
6 $ ! Compute the central Line number of the original Line number range and 
6238 ! then compute the new Line number range to retrieve, given the size of 
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the current display. Save the central Line number in the Display Entry. 


= .OLD LOW) i 
Aig DBGS$W_DISP_MAX_LINECNT)); 


S 

S 

NTER_L Ow + (. 

ZE ="MAX(.DISPTRODBGSW_DISP_R 

W_LOWLO) = .CENTER LINE = (7S 

W"HIGH(O) = .CENTER_LINE + .S 

ene -LOuCO) LSS .DISPTRCOBGSL_ 
BEGIN 

NEW _LOWLO2 s ~DISPTREDE $ DISP_MINL INE}; 

NEW H1GK J = .NEW_LOWLO) * (2e7SIZE = 15/2; 

DISPTR DBG$V_DISP_ATTOP) = TRUE; 


IF .NEW_HIGHCOJ GTR .DISPTRCDBGSL_DISP_MAXLINEJ 


BEGIN 
NEW_HIGH(O] = .DISPTRCDBGSL_DISP_MAXLINE]; 
NEW_LOWLO] = MAX(.DISPTR DeGsL OT se MINLIN 


€) 
NE OJ = (2*.S12& = 1/2); 
DISPIRCDOGSY_DISP_ATBOT? = TRUE; 


: i} 
2: 
SP_MINLINEJ 


—=—ZZYOOO 


DESPTACERER, DES? CEnTES = MAX(.DISPTRCOBGSL_DISP_MINLIN 


} ( E), 
-DISPTRCDBGSL_DISP_MARLINEJ, .CENTER_LINE)); 


! Line) and unless marking is disabled because we are simp scros ling. 
} mark the central Line as the Line to be marked with a ‘=>'' in the display. 


if (,OLD_LOW EQL .OLD_HIGH) AND (NOT .MARKLINE_DISABLE_FLAG) 
DISPTRCDBGS$SL_DISP_MARKLINE] = .CENTER_LINE; 

MARKLINE_DISABLE_FLAG = FALSE; 

RETURN; 


! Unless the user is typing a range of Line numbers (as Sepaned to a single 
y, 
> 


END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 

45 26 45 53 47 42 44 19 OQO78C P.AHW: .ASCII <25>\DBGSCREEN\<92>\SOURCE BEGIN 10\ 
ry 49 47 $3 $s 5F 45 43 00798 

? 26 os ; : $e rt} % Ores P.AHX: .ASCII <25>\DBGSCREEN\<92>\SOURCE BEGIN 20\ 
3 36 43 5 t 42 44 3 Ore P.AHY: .ASCII <25>\DBGSCREEN\<92>\SOURCE BEGIN 30\ 
P43 49 47 4 $s SF 45 4 7CF 

4 26 43 53 47 42 44 19 QO7DA P.AHZ2: .ASCII <25>\DBGSCREEN\<92>\SOURCE _BEGIN 40\ 
4E 49 47 45 42 SF 45 43 O007E9 
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50 
53 


50 


54 


H 12 
16-Se 
14-Se 

OFFC 00000 
B wa 00 
t 999g: rE BRRRs 
000000° EF B49 
; 08 i 18 
ioe $01 
a 33 Se 
00028362 &F bb 0054 
000000006 99 03 fe OO2A 
04 AC 00 00031 1$: 
59 08 ac DO 00035 
59 57 01 00039 
12 15 0003C¢ 
1A AB 9F QO03E 
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p-1984 02:30: AX-11 Bliss-32 V4.0-74 Pa 15 
sats ri 96:70:24 {oeBUG. SRC DBGSCREEN.B32;1 oe 233 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
-ENTRY DBGSSCR_SOURCE_BEGIN, Save R2,R3,R4,R5,R6,- ; 5954 
RO ORa RO RIOCATE é 
MOV . AH : 
MOVAB MARKLINE_DISABLE_FLAG, R10 : 
MOVL DacscL SCREEN_SOORCE, DISPTR 3 6067 
MOV (DISPTR), RB : 6048 
CMPB , #3 : 
BEQL 3 
PUSHL R11 + 6050 
PUSHL : 
PUSHL #164706 : 
CALLS #3, LIBSSIGNAL : 
MOVL  OLO_LOW, R? + 6052 
MOVL OLD-HIGH, RO : 
CMPL R7,~R9 : 
BLEQ = 2$ : 
PUSHAB P.AHX : 
PUSHL #1 : 
PUSHL #164706 : 
CALLS #3, LIBSSIGNAL : 
BLBS $FIXED_SCROLL_VALID, 3$ 3 6061 
CLRL —« FIXED SCROLL AMOUNT : 
CLRL FIXED SCROLL VALID + 6062 
CMPL MODRSTPTR, 52(DISPTR) ; 6078 
BEQL 5$ 3 
BRW 15$ : 
TSTW  30(DISPTR) : 6079 
BEQi 4$ 3 
SUBL3 R7, RY, RO + 6087 
DIVL #2. RO : 
ADDL3 7, RO, CENTER_LINE : 
MOVZ2WL 18(DISPTR), R4 + 6089 
MOV -1(R4), RO : 
DIVL2 #2, RO : 
SUBL3 RO, CENTER_LINE, RO : 
MOVL 64(DISPTR)> R1 : 
CMPL =a}, RO : 
BGEQ 6$ 3 
MOVL  R1. MINLINE : 6088 
MOVAB -1(R4)CMINLINE), RO > 6091 
MOVL GB(DISPTR), R1 : 
CMPL =6oR1, R : 
BLEQ 386 7$ : 
MOVL RO, R1 3 
MOVL 1, MAXLINE : 6090 
SUBL3 4, MAXLINE, R4 > 6093 
INCL 4 3 
MOVL  64(DISPTR), R1 : 
CMPL R1, R 3 
BGEQ = «BS : 
MOVL 4, RI : 
MOVL R1. MINLINE : 6092 
MOVL  32¢DISPTR), DLEPTR > 610 
CMPL 16(DLEPTR). MINLINE + 6101 
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GLOBAL ROUTINE DBGSSCR_SOURCE_END: NOVALUE = 
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to a screen display, It is called from DBGSSRC_TYPE_LNUM_ 
source Lines are being directed to a screen display. The 
purpose of this routine is to determine where t ‘ pereen window of 
the source output display should be positioned within the display 
text. This computation, piys the computation of a peret tine count 
for the display, is accomplished by doing some oeneeR ie ased on 
a omer ° variables set up in routines DBGSSCR_ SOURCE BEGIN, 
DBGSSCR_SCROLL_SOURCE_DOWN, and DBGSSCR_SCROLL_SOURCE_UP. 


The fundamental idea behind the algorithm is that SOURCE_BEGIN has 
marked the top and bottom lines of the previous 4) contents 
as ‘‘reference pe‘ots with known source file File IDs and record 
numbers. SOURCE_END then searches the new display contents for a 
Line with the same File 1D and record number as one of these two 
reference points. If such a Line is found, the serrespeneing 
scrolling count (if DROW is fixed by the user's TYPE or EXAM/SOURCE 
command) or the corresponding DROW value (if the Seren tine count is 
prsed Sy the user's SC e 

e whole 


ON 
This routine is called at the end of a source Line output sBunce 97 
rimary 


OUTPUTS 
NONE 


BEGIN 


6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 


2 


NIAAA AAA AIA 


AL 
DISPTR: REF DBGSDISP_ENTRY, 


! Pointer to Screen tity Entry 
DLEPTR: REF DBGSDLINE_ENTRY, ' Pointer to Display Line Entry 
DROW ! Display row location of window top 
NEW_TOP_OFFSET, ! Offset from top of oreri to the 

} source reference line 
REF _FLAG ' Flag set if a reference Line is found 
SCROLL _DOWN; ! Flag set if we should scroll down 


' Set the next Line number (as used by the parameter-less TYPE and SEARCH 


' commands) to be the Line after the center Line for the current source 
display. 


DISPTR = ,DBGSGL_SCREEN_SOURCE; 
DBGSSRC_NEXT_LNUM = .DISPTRCDBGSL_DISP_CENTER) + 1; 
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' Search the new List of Display Line Entries to see if we can find the 


' reference Line that used to be at the top or the bottom of the 
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: aregl ay contents. If we can, note whether this calls for scrotling up 
own. 
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E_PTRI: 

TART_LINE_PTRI DO 

QL .TOP_REF_RECNUM) AND 
QL :TOPTREF-FILEID) 


LAG = TRUE; 
L_DOWN = FALSE; 
OOP; 
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NERECNUM] EQL .BOT REF 
E“FILEID) EQL :BOT"REF 


: If 4 did not find either reference Line, we invalidate the scrolling 
! count. 
' 


iF NOT .REF_FLAG THEN INVSCR_FLAG = TRUE; 


If we found a reference Line and we are scrolling by a fixed amount 
specified by the user on a SCROLL/DOWN or SCROLL/UP command, we compute 
the new OR location. Here we use SCROLL_AMOUNT as set in routine 
DOGSSER_SCROLL SOURCE _DOWN or DBGSSCR_SCROCL_SOURCE_UP to compute DROW. 


DROW is the adjusted Tf it hits the top or bottom of the source display. 


ROW = .DISPTRCDBGS$W_DISP_DROW); 
Fj IMED_SCROLL_AMOONT AND .REF_FLAG 
BEGIN 


] 
D 
I 
T 


! If we are scrolling down and the scrolling amount is fixed by the 
} user's SCROLL/DOWN command, we compute the resulting DROW value here. 


if . SCROLL_DOWN 
DROW = .NEW_TOP_OFFSET * (.SCROLL_AMOUNT - .BOT_OFFSET) + 1 


' If we are scrolling up and the scrolling amount is fixed by the 
! user's SCROLL/UP command, we compute the resulting DROW value here. 


ee 


N 12 


1 
SCREEN 16-Sep-1 :30: AX-11 Bliss-32 V4.0-74 Page 221 
vOC-000 Wex$sp-198e $5:i9:43 — Eokaug. SacibagecREen.083;1 9 28) 
! 
ELSE 
DROW = .NEW_TOP_OFFSET + .SCROLL_AMOUNT * .TOP_OFFSET + 1; 
END ! End of fixed-scrolling-amount case 


If we found a reference Line but the scrolling amount is not fixed, then 
the center Line of the window was specified by the user on a TYPE or 
EXAMINE/SOURCE command. Here we compute the corresponding scrolling 

ag for the window. DROW has already been set in DBGSSCR_SOURCE_LINE 
n Ss case. 


LSE IF .REF_FLAG 
HEN 
BEGIN 


Se LAA ke ee 


! If we are scrolling down and the center Line of the window is fixed 
' by the source Line number specified on the TYPE or EXAM/SOURCE com- 
! mand, we compute the resulting scrolling amount here. 

iF .SCROLL_DOWN 


' 
' 
' 
‘ 
I 
SCROLL_AMOUNT = .BOT_OFFSET + .DROW - 1 = .NEW_TOP_OFFSET 


NOMEN “OOOO WO 


MIRITUNINININID 2 2 OO OS 


fF. 
HEN 


! If we are scrolling up and the center Line of the window is fixed by 
! the source Line number specified on the TYPE or EXAM/SOURCE command, 
! we compute the resulting scrolling amount here. 


' 
i 
i 
: 
ELS 


EESESESE ASS SS 


E 
SCROLL_AMOUNT = -(.NEW_TOP_OFFSET + .TOP_OFFSET = .DROW*+ 1); 
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0 
1 
ink} END ! End of fixed DROW case 
e344 
6345 ! If no reference Line was found but we are scrolling to the bottom of the 
6 $ ! display simply set DROW to point to the Last Line of the display. (This 
° H gets adjusted or the window size in the code immediately below. 
6 49 ELSE IF .FIXED_SCROLL_AMOUNT AND .SCROLL_TO_BOTTOM 
° 53 DROW = .DISPTRCDBGSW_DISP_LINECNT); 
635 
6354 ! Then adjust the DROW value and the scvett ing amount if we are below 
° 2 the bottom of the source file being scrolled. 
° 33 ‘ iF ;PROW - 1 GTR .DISPTRCDBG$W_DISP_LINECNT] = .DISPTRCDBGS$SW_DISP_RLEN) 
6 36 6445 BEGIN 
6 644 SCROLL_AMOUNT = .SCROLL_AMOUNT ¢ .DISPTRCDBGS$W_DISP_LINECNT) 
6361 644 - .DISPITR pees gist RLEN) = _.DROW * 1; 
6 4 644 DROW = .DISPTRCDBG$W_DISP_LINECNT) - .DISPTRCDBGS$SW_DTSP_RLEN) + 1; 
ei = 
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DBGSCREEN 16-Sep-1984 02:30:2 AX-11 Bliss-32 V4.0-74 
‘vOl=0p 1228 8-13Re 95:79:24 DEBUG. cRCTSBaSCKEEW.0355 1 
>; 6365 6451 
; 6366 oteg ! Next adjust the DROW value and the scrolling amount if we are above 
: 6367 645 ! the top of the source file peing scrolled. DROW could be zero or 
; 6368 6454 ! negative due to either of the above DROW computations; here we make 
3; 6369 6455 ' sure it does not get smaller that 1. 
; 6570 6456 : 
3 ogf} 6457 IF .DROW LSS 1 
; 6 ie: 6458 THEN 
; 637 6459 BEGIN 
> 6374 6460 3 SCROLL_AMOUNT = .SCROLL_AMOUNT = .DROW + 1; 
: 6375 6461 DROW = 1; 
: 6378 O66 END; 
3; 6377 646 
; 6378 6464 : 
3; 6379 6465 2 ' Set the final DROW value into the Screen Display Entry. 
; 6380 6466 2 ! 
; 6381 6467 2 DISPTRLDBGS$W_DISP_DROW] = .DROW; 
: 6382 6468 2 
> 6383 6469 2 
; 6384 6470 2 ' Given the new DROW (display row) value, set up the display’s window 
3; 6385 6471 2 ' start pointer. 
3; 6386 6472 2 : 
3; 6387 647 2 DLEPTR = DISPTRCDBG$L_DISP_START_LINE_PTRI; 
; 6388 6474 2 INCR I FROM 1 TO .DISPTRCDBG$W_DTSP_DROw) DO 
; 6389 6475 2 DLEPTR = .DLEPTRCDBGSL_DLINE_FLINK); 
; 6390 6476 2 
3; 6391 6477 2 DISPTRCDBG$L_DISP_WINDOW_PTR] = .DLEPTR; 
; 6392 6478 2 
3; 6393 6479 2 : 
; one et} Compute the final scrolling count, mark its validity, and return. 
3; 6396 6482 2 DISPTRCDBG$W_DISP_SCROLL] = .SAVED_SCROLL + .SCROLL_AMOUNT; 
3 6397 6483 2 DISPTRCDBG$V_DISP_INVSCR} = .INVSCR_FLAG; 
3; 6398 6484 2 RETURN; 
3; 6399 6485 2 
3; 6400 6486 1 END; 
007C 00000 ENTRY DBGS$SCR_SOURCE_END, Save R2,R3,R4,R5,R6 
56 00000000" EF 9€E 00002 MOVAB SCROLL_AMOUNT, R 
50 00000000' Ff dO 83008 MOVL DBG$GL_SCREEN_SOURCE, DISPTR 
000000006 00 38 = A0 % C1 00010 ADDL3 #1, S6TDISPTRY, DBGSSRC_NEXT_LNUM 
51 D4 00019 CLRL NEW_TOP_OFFSET 
55 D4 00018 CLRL REF “FLAG 
5 20 Ad 0 001D MOVL ; (BISPTR), DLEPTR 
20 49 E 00021 1$ MOVAB (DISPTR), Re 
3 D1 00025 CMPL pyert ° 
13 bp 8 BEQL 4 
A3 D1 A CMPL  12(DLEPTR), TOP_REF_RECNUM 
1 12 Q002F BNEQ 2$ 
0c A6 OA AS 10 69 f 8 1 CMPZV #0, #16, 1O(DLEPTR), TOP_REF_FILEID 
8 BNEQ 2$ 
55 2} D 4 r MOVL #1, REF_FLAG 
4 04 D CLRL —- SCROLL_BOWN 
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GLOBAL ROUTINE DBGSSCR_SOURCE_LINE(LINENUM, sca °° 


13 
HEREIN ABETREDWMGLL SMBS AAT, 


14-Sep-19 DEBUG.SR 


RECNUM 
UFLEN, BUFPTR): NOVALUE = 


FUNCTION 


This routine inserts a source line into a SOURCE screen display. 
It accepts the Line number, source file location, and text string 
of the source Line as input and it inserts that text and other 
information into the current source display as specified by the 
global pointer DBGSGL_SCREEN_SOURCE. 


INPUTS 


LINENUM - The Line number of the passed-in source line. This is the 
Line number which will be displayed to the left of the line 
on the screen display. 


FILEID = The source file File ID as understood by module DBGSOURCE. 
use and RECNUM serve to uniquely identify this source 

ne. 

RECNUM = The record number of the source Line within the FILEID 
source file. Again, the purpose of FILEID and RECNUM is 
to uniquely identify this source Line. 

BUFLEN = The Length of the source Line text in characters. 


BUFPTR = The address of the source Line text. 


OUTPUTS 
NONE 


BEGIN 


MAP 
BUFPTR: REF VECTORC BYTE); 
LOCA 


Pointer to source line text 


Pointer to ort Display Line Entry 
Pointer to SOURCE Screen D splay Entry 
Pointer to Screen opener Line Entry 
Pointer to next Display Line Entry 
Temporary buffer for de-tabbed text 
Length of de-tabbed text 

Pointer to text in Display Line Entry 


D 8 
FLINK: REF DBGSDLINE_ENTRY, 
TEMPBUF: VECTOR(256, BYTE), 


TLEN, 
TEXT_PTR: REF VECTOR BYTE); 


! Expand all tabs to blanks. This is necessary in order to make subsequent 
: Length computations and left Seren) ine work correctly. The expanded text 
} is copied into the TEMPBUF temporary buffer. 

TLEN = 0; 

INCR 1 FROM 0 TO .BUFLEN - 1 DO 


! If the current character is a tab character, expand it to blanks. 


Page 225 
(49) 


a 


—os 


eae hg res 13 


F 
wae 1erSep-1986 F3:i7:48 — EdeeuG. SAcHbBGSCREEN. B59; 1 Page 25 
' 


iF .BUFPTRC.1) EQL TAB_CHAR 
THEN 
BEGIN 
INCR J FROM 1 TO 8 - (.TLEN MOD 8) DO 
mPBU BUFC.TLEND = * '; 


TLEN + 
TLEN GéQ 255° THEN EXITLOOP; 


zr pm+ — I a 


D: 
END 


If the current character is not a tab, just copy it as is. 


BEGIN 
TEMPBUFC. ton = .BUFPTRCE.1); 
i = .TLEN + 1; 


IF .TLEN GEQ 255 THEN EXITLOOP; 
END; 


6569 
85 6570 ' Allocate and build a Screen Display Line Entry to hold the contents of 
86 oar} the present source Line. 
6488 ret DISPTR = .DBGS$GL_SCREEN_SOURC 
6489 65746 DLEPTR = DBGSGET gre mony (oaGsx “buy ENTSIZE2 + "US ahaa + 1); 
64 6575 DLEPTRCDBG$B_DLINE_REND) = BTSP RCOBG$B_DISP_RENDJ; 
6491 6576 DLEPTR DBCS DL INE SOURCE LG) = PTRU : 
649 6577 DLEPTRCDBG INE_FILEID) = .FILEID; 
649 6578 DLEPTRCDBGSL_DLINE_RECNUM) = .RECNUM; 
6494 6579 DLEPTRCDBGSL_DLINE_LINUM] = .LINENUM; 
a 
yh 44 $386 ; Copy over the text of the source Line to the Display Line Entry. 
6499 6584 TEXT_PTR = DLEPTRCDBGSA_DLINE_TEXT2); 
6500 6585 TEXT“PTRLO] = .TLEN; 
6501 65 CHSMOVE (. TLEN, *TEMPBUE TEXT_PTRE1}); 
ee 
65 6588 ' , ; é 
6504 6589 ! Link this Display Line Entry onto the tail of the Display Line Entry List 
£293 oan for this display. 
650 0296 FLINK = DISPTRCDBGSL_DISP_START {INE PTR); 
6508 659 BLINK = sche erie DBGSL-DLINE_BLINR); 
6509 6594 DLEPTREDBGSL we CIM = .FLINK; 
6510 6595 DLEPTRCDBGSL— DL INE BLINK] = .BLINK; 
6511 6296 ot Ne EDBeST DEINE FL NKS = .DLEPTR; 
oale 659 BLINK pecs OL DLINE-FLINK) = .DLEPTR; 
651 6598 DISPTRID DISP LINECNT) = DISPTRCDBGSH_ DISP_LINECNT] + 1; 
6514 6599 IF .DISPTR bee W_BISP_LINECNT) EQL 1 
6515 6600 THEN 
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18-Sep-19 4 02:30:2 Ax-11 Bliss-3 Page 227 
12-8 08=1 She 95: 70:2 DEBUG. SRCIDBG ° 3} 
DISPTRCDBGSL_DISP_WINDOW_PTR] = .DLEPTR; 
! Finally adjust the DROW parameter and window pointer so that the central 
' Line of the source oreotes in fact winds up in the center of the center 
of the display’s screen window. 
Ae aa EQL .DISPTRCIDBGSL_DISP_CENTER] 
BEGIN 
DISPTRCDBGSW_DISP_DROW] = MAX(1, .DISPTRCDBG$W_DISP_LINECNT]) - 
(.DISPTRCDBGSW-DISP-RLEN] = 1)/2); 
INCR I FROM 1 AP 
-DISPTRCDBGSW_DISP_LINECNT] = .DISPTRCDBGS$W_DISP_DROW] DO 
DLEPTR = .DLEPTRCDBGSL-DLINE_BLINKI; 
DISPTRCDBGSL_DISP_WINDOW_PTRI = .DLEPTR; 
The source Line has been output to the display. Now return. 
RETURN; 
END; 
00FC 00000 ENTRY DBGSSCR_SOURCE_LINE, Save R2,R3,R4,R5,R6,R7 ; 6487 
5E FFOO 33 9E 00902 MOVAB <=256(SPY, SP 3 
52 04 00007 CLAL LEN ; 6538 
50 ¢ CE 00009 MNEGL #1, I : 6545 
B 11 0000C BRB : 
09 14 BC40 91 b0005 1$: CMPB @BUFPTRCIJ, #9 : 
$3 12 0001 BNEQ 4$ 3 
52 1 7A 00015 EMUL #1, TLEN, #0, -(SP) 3; 6548 
BE 08 78 OO1A EDIV. #8, (SP)+, RI, RI : 
08 51 C3 OOO1F SUBL3 1. #8, RI ; 
53 04 00023 CLRL 3 
0D 11 00025 BRB $ 3 
824E ¢3 90 00027 2% MOVB #32, TEMPBUFCSP) :; 6550 
OOOOOOFF 8F 2 oI 4 8 CMPL TLEN, #255 : 6552 
of $ 0 BGEQ $ 
53 1 £3 00034 3$: AOBLEQ R1, J, 2% : 6548 
28 11 000 BRB : 6545 
824E 14 BC40 90 OQO03SA 4$: MOVB sour Prat ii. TEMPBUF [SP] : 6562 
OOOOOOFF 8&F 3 D1 00 r 5$: CMPL TLEN, @ 3; 6566 
05 18 0004 BGEQ $ 
50 19 AC F : 49 gs: AOBLSS BUFLEN, I, 1$ : 6539 
56 00000000' Ff D 4f $: MOVL. DBGSGL SCREEN. SOURCE. DISPTR ; 6573 
52 4 f DIVL3) #4, TLEN, R 3 6574 
06 AO OF 9 PUSHAB 6(RO : 
000000006 99 . # 0 § CALLS #1, DBGSGET_MEMORY 3 
0 be MOVL R LEPTR 3 
08 A? 09 Ab 66 MOVE 9(BISPTR), 8(DLEPTR) > 6575 
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Routine Base: 


50 
F8 


230 bytes, 


; Routine Size: 


; 654 66 $ 
3; 654 66 

3 65446 66 8 
; 6545 66 

; o2t8 6650 
; 654 6631 
; eee 66 § 
3 $2 66 

: 6 20 66 

; 6551 6635 
3 £226 66 

3 $22 66 

3; 6554 6636 
3; 6555 6639 
; 6556 6640 
3; 6557 6641 
3; 6558 O666 
; 6559 664 
; 6560 6644 
3; 6561 6645 
3 6266 6646 
3; 656 6647 
3; 6564 6648 
3; 6565 6649 
3; 6566 6650 
3; 6567 6651 
; 6568 roti] 
3; 6569 665 
; 6570 6654 
3; 6571 6655 
3 o27¢ 6656 
3; 657 6657 
3; 6574 6658 
; 6575 6659 
3 6376 6660 
3; 657 6661 
3; 6578 ose 
3; 6579 666 
3; 6580 6664 
3; 6581 6665 
3 o28¢ 6666 
3; 658 6667 
3 6584 6668 
3; 6585 6669 
3; 6586 6670 
3; 6587 6671 
3; 6588 667 
3; 6589 667 
3; 6590 6674 
3; 6591 6675 
3 $296 667 
3; 659 667 
3 6594 9678 
3; 6595 667 
; 0396 6680 
3; 659 1 
; 6598 6682 
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ROUTINE DBGSSCR_UPDATE_PASTEBOARD: NOVALUE = 


FUNCTION 

This routine updates the pasteboard to take into account the changes 
made to the constituent displays since the last time the pasteboard 
was updated. It goes through the List of pasted etepleys to determine 
which Lines of which displays should be visible on the pasteboard, and 
it updates the pasteboard Line table accordingly. 


; 
i INPUTS 

; NON 
: 

i 


OUTPUTS 
NON 


BEGIN 
LOCAL 

DISPTR: REF DBGSDISP_ENTRY, 
DLEPTR: REF DBGSDLINE_ENTRY, 


1ROW, 
NEXTDLE, 
RBEG, 


Pointer to current Display Entry 
Pointer to Display Line Entry 
Temporary row index into pasteboard 
Pointer to next Display Line Entry 
Beginning row location on pasteboard 
of the current display 
Row length (height) of current display 
Scrolling amount for current display 
Temporary Display Entry pointer 


SCROLL_AMOUNT, 
TEMPTR: REF DBGSDISP_ENTRY; 


: Initialize the pasteboard to contain nothing but user scrolling region. 


INCR I FROM 0 TO DBGSK_PASTE_SIZE - 1 D 


0 
PASTEBOARD(.1, DBGSB_PASTE_KIND) = DBG$K_PASTE_NULL; 


: Loop through the Screen ot splay List. for each display on the List, 
' fill the display Lines of that display into the appropriate window on 
: the pasteboard. 

DISPTR = .DBGSSCR_DISPLAY_LISTCO); 

tes hee NEQ DBGS$SCR_DISPLAY_LIST DO 


! Unless the current display is marked as removed from the pasteboard, 
; we fill it into its window on the pasteboard. 


if NOT -DISPTRCDBGSV_DISP_REMOVE) 
BEGIN 
! Initialize the part of the pasteboard covered by this display to 


! contain blank Lines. This allows the actual é'splay text to con- 
! sist of less Lines than there are in the corresponding window. 


BREE BUI IUTIORORORORONORORO Uo foonononononononunonunufNUNNUhD 2 3 3 2 


roe 3 
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GSCREEN 1a-Se -1984 02:30: AX-11 Bliss-32 v4.0-74 Pa 30 
it 1-8ep-19 4 95: 70:4 DEBUG. SRCIOBSSCKEEN. B35; 1 al 0) 
4 £238 66 ; ¢ éCROLL NT DISPTRCDBGSW_DISP_SCROLL 
o ~ . 4 
: 6601 6685 4 IF .DISPTRCDBG$V_DISP_INVSCR) THEN SCROLL_AMOUNT = 0; 
3 poe] 66 4 RBEG = .DISPTRCDBG WB tSe ROEG): 
3; 660 66 4 RLEN = ,DISPTRLDBGSW_DISP_RLENJ; 
3 pee: oF : 4 ona Ah -RBEG TO MIN(.RBEG + .RLEN, DBGSK_PASTE_SIZE) = 1 DO 
3 ooR8 6690 PASTEBOARD(.1, OOo ee OA STE Ac IND) = DBGS$K_PASTE_BLANK; 
; 660 6691 PASTEBOARDL.1, DBGSB_PASTE_REND) = .DISPTR(DBGSB DISP_REND); 
3 6608 669 PASTEBOARD(.1, DBGSW-PASTE-SCROLL] = .SCROLL_AMOONT; 
3; 6609 669 PASTEBOARD(.1, DBGSL_PASTE_DISPID] = .DISPTR; 
; 6610 6694 & END; 
3; 6611 6695 4 
3 berg O68 4 
3; 661 6697 4 ! Now copy the actual text Lines (represented by pointers to 
3 ects 924 2 Display Line Entries) from the display into the pasteboard. 
3; 6616 £506 4 DLEPTR = .DISPTRCDBGSL_DISP_WINDOW PTR); 
3; 6617 6701 4 INCR I FROM .RBEG TO MIN(.RBEG + .RLEN, DBGSK_PASTE_SIZE) - 1 DO 
3; 6618 670 BEGIN 
3; 6619 670 IF .DLEPTR EQL 0 THEN EXITLOOP; 
; 6620 6704 IF .DLEPTR EQL DISPTRCDBGSL DISP_START LINE_PTR] THEN EXITLOOP; 
; 6621 6705 PASTEBOARD(.1, B.PASTE KIND} = DBGSK_PASTE TEXT; 
3; 66 ; ore PASTEBOARDCL.1, DBGSB_PASTE_REND) = .DLEPTRCDBGSB DLINE_REND); 
3; 66 6707 5 PASTEBOARDL.1, DBGSW_PAST =ptroul Ss LL_AMOONT; 
3; 6624 6708 PASTEBOARDL.1, DBGSL_PASTE_DISPID] = .DISPTR; 
3 $66? 6709 PASTEBOARD(.1 ePeot PASTE DLINE) = .DLEPTR; 
3 66 6 6710 DLEPTR = .DLEPTRCDBGSL_DLINE_FLINK); 
3; 66 6711 4 END; 
3; 6628 orig 4 
3 6629 67135 4 
: 6650 6714 4 ! If this hn pony has Error Line Entries, replace the first part 
; $63 ort? ? of the display with the error Lines. 
3 6538 6717 4&4 DLEPTR = .DISPTRCDBGSL_DISP_ERROR_PTRI; 
3; 66 6718 4 INCR I FROM .RBEG TO MIN(.RBEG + TRLEN, DBGSK_PASTE_SIZE) - 1 DO 
; 6635 6719 5 BEGIN 
5 6636 6720 5 -DLEPTR EQL 0 THEN EXITLOOP; 
3; 663 6721 5 PASTEBOARD(.1, DBGSB_PASTE KIND} = DBGSK_PASTE_TEXT; 
3; 6638 67 § 5 PASTEBOARD(C.1, DBGSB_PASTE_REND] = .DLEPTRCDBGSB DLINE_REND); 
3; 6639 67 5 PASTEBOARDLE.1, ~PASTE SCROLL) = .SCROLL_AMOONT; 
3; 6640 6724 5 PASTEBOARDL.I1, SL_PASTE_DISPIDJ = .DISPTR; 
3; 6641 6725 é PASTEBOARD(.1, DBGS$L_PASTE DLINE) = .DLEPTR; 
: 6648 67 6 DLEPTR = .DLEPTRCDBGSL_OLINE_FLINK); 
3; 664 67 4 END; 
3 6644 6728 4 
3; 6645 6729 4 
3 oes 6730 4 ' If this display still has line entries on the old-text list, 
3 664 6731 4 ' release them all. This only occurs for automatically updated 
3: 6648 67 § 4 ! displays when changes are marked and when the Gtsplay's new 
3 6649 67 4 ' text has less Lines than the old text. Also clear the flag 
5 2330 $7 : ? that marks this display as a new display. 
; 0636 67 4 DISPTRCDBG$V_DISP_NEWDISP) = FALSE; 
3 665 67 4 DLEPTR = .DISPTRCBBGS$L_DISP QLOTHT _PTRI; 
3 6654 67 3 4 DISPTRCDBGSL_DISP_OLDTRT_PTR) = 0; 
3; 6655 67 4 WHILE .DLEPTR NEQ™O DO 
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3; 66 oreo BEGIN 

3; 66 674 NEXTDLE = .DLEPTRCDBGSL_DLINE_FLINK); 

5 2828 2544 DBGSREL_MEMORY( .DLEPTR); 

; 66 674 DLEPTR = .NEXTDLE; 

; 6660 6744 & END; 

: 6661 6745 & 

; 904) ores 4 

3: 666 6747 & ! FILL in the top border for the display. We use the display's 

3 vote ores ? Label Line as the top border. 

3 e338 6750 4 PASTEBOARD(.RBEG = 1, eats Ean HEL. 3 = DBGSK_PASTE LABEL; 

3 666 6751 4 PASTEBOARDE.RBEG = 1, DBGSB_PASTE_REND] = .DISPTRCDBGSB_DISP_REND); 
3 6668 67 § 4 PASTEBOARDL.RBEG = 1, DBGSL_PASTE_DISPID] = .DISPTR; 

3; 6669 67 4 

3; 6670 6754 4 

3; 6671 6755 4 ! FILL in the bottom border of the display. Unless this border 

3 667 of a6 4 ! happens to overlay another display, we turn it into the normal 

3; 667 6757 4&4 ' bottom-of-the-screen border. 

3 6674 6758 4 ! 

3; 6675 6759 4 IROW = MIN(.RBEG + .RLEN, DBGSK_PASTE SIZE = 1); 

3 667 6760 4 IF (.PASTEBOARDC.IROW, DBGSB_PASTE_KIND] EQL DBGS$K_PASTE_NULL) OR 
3; 667 6761 5 (.PASTEBOARDL.IROW, DBGSB_PASTE_KIND] EQL DBGSK_PASTE_BORDER) 

3; 6678 6762 4 N 

3; 6679 676 2 EGIN 

3; 6680 67 PASTEBOARD(L.IROW, DBGSB_PASTE_KIND] = DBGSK_PASTE_BORDER; 

3; 6681 6765 : PASTEBOARDL.IROW, DBGSB_PASTE_REND] = -DISPTRCDBGSB_DISP_REND); 
3 rer) o706 PASTEBOARDL.IROW, DBGSL_PASTE_DISPID] = .DISPTR; 

3; 668 6767 5 END 

3 6684 6768 5 

3; 6685 6769 ; 

3; 6686 6770 ' But if this border happens to overlay another display. we turn 

3; 6687 6771 ; ! this Line into a Label Line for the overlayed display. 

3; 6688 677 ! 

3 6689 6773 4 ELSE 

3; 6690 6774 5§ BEGIN 

3; 6691 6775 5 PASTEBOARDC.IROW, DBGSB_PASTE_KIND) = DBGS$K_PASTE_LABEL; 

3; 669 677 : TEMPTR = .PASTEBOARDL.IROW, DBGS$L_PASTE DISPID); 

3 669 677 PASTEBOARDC.IROW, DBG$B_PASTE_REND) = .TEMPTRCDBGSB_DISP_REND); 
3 6694 ore 4 END; 

3; 6695 6779 4 

3 cone 6780 END; ! End of code for non-removed displays 
3; 669 6781 

3; 6698 ores 

3 p54 67 ! Clear the scrolling count in the current Display Entry. Then Link 

; 670 o7 : } to the next display on the Screen Display List and loop. 

3 44 ores DISPTRCDBG$W_DISP_SCROLL) = 0; 

3; 670 67 DISPTRLEDBGSV"DISP~INVSCR] = FALSE; 

3 6704 6788 DISPTR = .DISPTRCDBGSL_DISP_FLINK); 

: en 6790 END; ! End of loop over Screen Display List 
3; 6708 3444 

3; 6709 679 ! The pasteboard is updated. Now return. 

3; 6710 6794 ‘ 

3; 6711 6795 RETURN; 

3 6712 6796 
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51 50 ¢ 
00000000°EF 41 1 
0 5 4 
: 00000000" EF 

00000000" fF 
50 ¢ 
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03 02 A 
0166 
58 oc ag 

02 68 1 
58 

53 19 A 

06 AE 1 A 

08 ag 04 BES 
5 08 ag 

15 5 
03 
57 A} 

50 FF OA 
ge 

51 50 ¢ 
56 00000000°EF 41 
66 03 
01 A6 01 AB 
02 A6 58 

9 00000000°EF 41 
wet hess b 
5 20 A 

59 A 

50 & 
9 
51 ge C 
? 00000000" aba 
01 ie ag 
02 8 

® 00000000" ef’ 
F 0000000" eral 
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OFFC 00000 DBGSSCR_UPDATE ire et 
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Sss 
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SOSNO SAMA SID 
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bas 


9$: 


oH 
Ha 
8 001 
a D038 2s: 
12 000 
ge OO2A 
5 Be 
i 0033 
2 00036 4$: 
E1 O003A 
4 000 ‘ 
C 00040 5$: 
: $049 
5 O04F 
1 00053 
5 00 +} 
0 0005 
5 boos ot 
5 00061 7$: 
0065 
: 
007s 
79 
8$: 


Saye Re R2,R3,R4,R5,R6,R7,RB,RI,RIO,RI1 
I 
a2 ; 
pAgTE BOARDER 


#26, CR_DISPLAY_LIST, DISPTR 
DBGSSCR DISPLAYZL LIST. RO 


(DISPTR} RB 

), 4$ 
DISPTR), SCROLL _AMOUNT 

UNT 

is » RBEG 

SPT RLEN 

trae. 8(SP) 

é 


a= = OF An WN PD 


WP — RM — MEN DOOM —-WwO-— 


1 
eB 7 R6 


Zao v-o@M 


(R 
) 
L 
E 
T 
a 


V9 VUU4O8S U8 9 9 — 1 WE DOV “BB VUS@ i B8O7TOOH——YB 
> + 


P= POAN PH ONO POA 
senses SS eee Sass 
—~ 

x 


a" ifcden-1966 03:80:21 YARGNY BLi98=52 ¥e.00742 | 


i] 5 D C7 MOVL DLEPTR, a(SP)+¢ 
§ D CA MOVL (DLEPTA), DLEPTR 
C4 Q F (CD 10$:  AOBLSS R7, I 
2c. COA p D1 11$:  MOVL 44 (01 SPTRD, DLEPTR 
0 FF A 05 MOVAB -1(R5), I 
1 09 BRB 
ey 3p deat tm 
51 50 ¢ 4 ODF MULL3 #12, I, R1 
23 00000000" EF ; OES MOVAB PASTEB ARDCR1], RO 
01 A9 08 0 9 E MOVB 8 (DLEPTR), 1(R9) 
2 a9 58 Q F MOVW § SCROLL_AMOUNT g(R9) 
00000000°EF41 9F OOF PUSHAB PASTEBOARD+4(A1 
+) 3 2 po ff MOVL PTR, a(SP)+ 
00000000°EF41 9F 0010 PUSHAB PASTEBOARD+8(R1) 
2 55 D 0108 MOVL LEPTR, a(SP)+ 
5 $3 DO 00108 MOVL (DLEPTR), DLEPTR 
9 50 a. 0105 13$ AOBL SS R?. | les 
02 Ag 20 BA 00112 148 BICB2 #32, 2(RB) 
5 30 A2 00 00116 MOVL  48(DISPTR), DLEPTR 
0 A2 D4 OO1IA CLRL  48(DISPTR) 
55 DS 0011D 158 TSTL  DLEPTR 
11 13 OO11F BEQL 168 
6E $3 pd 00121 MOVL  (DLEPTR), NEXTDLE 
5 DD 00124 PUSHL DLEPTR 
000000006 00 01 FB 0126 CALLS #1, DBGSREL_MEMORY 
5 6—E D0 0012D MOVL NEXTOLE, DLEPTR 
B 11 o1 BRB 15$ 
0 +} C €5 00132 168:  MULL3 #12, RBEG, RO 
00000000'EF 40 4 90 001 MOVE #4, PASTEBOARD-12(R 
00000000°EF 40 01 a8 90 001 . MOVB =: (RB) PASTEBOARD=11 ROJ 
00000000°EF40 9F 0014 PUSHAB PASTEBOARD-8(RO] 
9 52 DO 0014E MOVL bISP » a(SP)+ 
5 08 ar DO 00151 MOVL (S 
14 50 01 00155 CMPL RQ é 
03 15 00158 BLEG)~Ssé 78 
50 14 00 O015A MOVL #20, RO 
54 50 00 00150 178: MOVL R 
50 54 0¢ f 160 MULL3 #12, IROW, RO 
51 00000000'EF 40 f 0164 MOVAB PASTEBOARDCRO), R1 
01 61 91 0016C CMPBs«(R'1), 
5 13 O16F BEQL 18% 
05 61 91 00171 CMPB OS s«(R'1), #5 
4 fs 174 BNEQ 19% 
61 05 9 1% 18$:  MOVB #5, (R1) 
01 «Al 01 AB 90 001 MOVB 1(R8), 1(R1) 
0U000000'EF4O 9F 0017 PUSHAB PASTEBOARD*+4(RO) 
9€ 5 00 1 MOVL DISPTR, a(SP)+ 
1 1 BRB $ 
61 04 90 0018A 198:  MOVB #4, (RI) 
00000000°EF40 9F 001 PUSHAB PASTEBOARD+4(RO) 
5A 9€ po 1 MOVL 9($P)s TEMPTR 
01 «AI 09 AA 197 MOVB (TEMPTR), 1(R1) 
rs BA 19C 208: CLRW \gcD|sPrRs 
02 ag 02 BA 0019F BICB2 #2, 2(R8) 
5 62 DO OO01A3 MOVL  (DISPTR), DISPTR 
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; 6715 6798 1 GLOBAL ROUTINE DBGSSCR_WRITE_ERROR(RABPTR) = 

; 6716 6799 1! 

; 6717 6800 1 ! FUNCTION 

; 6718 6801 1! This routine writes an error presege Line to a screen Gisplay. It is 

3 6719 ett 1? called from routine DBGSOUT_MESSAGE when an error has been signalled 

; 6720 68035 1! and the soreespondic messone is about to be output, If the global 

; 6721 6804 1! variable DBGSGL_SCREEN_ERROR is non-zero, this routine is called in- 

: 6722 6805 1! stead of the SPOT system service to output the message. It does so 

; 6723 6806 1! by gttochioe the error message text to the Screen Display Entry that 

; ore ye tit4 | DBGSGL_SCREEN_ERROR points to. 

: 6726 6809 1! Error messages are only directed to screen displays when the contents 

3 6727 6810 1! of automatically generated displays are generated by invoking the DEBUG 
3; 6728 6811 1! command Lists associated with such displays. This allows the messages 
3; 6729 gets -_ associated with such displays to be displayed in the display's them- 

; 6750 68135 1! selves, rather than being output to the input window at the bottom of 

3: 6731 6814 1! the screen. Such messages would be quite confusing at the bottom of 

3; 6732 6815 1! the screen since they are not associated with the current DEBUG command 
: 6733 6816 1! entered from the terminal. 

3; 6734 6817 1! 

3; 6735 6818 1 ! INPUTS 

3; 6736 6819 1! RABPTR = A pointer to an RMS Record Access Block (RAB) which describes 
; 6737 6820 1! the Line of error message text to be written to the currently 
; 6738 6821 1! active error display. 

3; 6739 oes 1! 

3; 6740 6823 1 ! OUTPUTS f 

: 6741 6824 1! This routine returns TRUE as its value if the error message was success- 
3 6742 6825 1! ully written to the current output display. If the write 

; 6743 6826 1! did not succeed, the routine returns FALSE to indicate that 

3 6744 6827 1! the error message should be forced out to the user's terminal 
3; 6745 6828 1! using the $PUT system service. 

; 6746 6829 1! 

3: 6747 6830 1 

3; 6748 6831 2 BEGIN 

3 6749 eth 2 

3; 6750 68335 2 MAP f 

; 6751 6834 2 RABPTR: REF BLOCKC,BYTE); ! Pointer to Record Access Block 

3; 675 6835 § 

3; 675 6836 LOCAL 

: 6754 6837 2 DISPTR: REF DBGSDISP_ENTRY, ' Pointer to Screen Display Entry 

3 6755 6838 2 DLEPTR: REF DBGSDLINE_ENTRY, ! Pointer to the Display Line Entry for 
3; 6756 6839 2 : the new output Line 

3 6757 6840 2 DLINE TEXT: REF VECTORC,BYTEJ, ! Pointer to text buffer in Line Entry 
3 6758 6841 $ MSGEND, ' Pointer to first byte after message 

3; 6759 684 MSGLEN, ! The Length of the message text 

3: 6760 6845 2 MSGPTR: REF VECTORC,BYTE), ' The address of the message text 

3: 6761 6844 NXTMSGPTR, ' Pointer to rest of message text--this 
i 6762 6845 : is advanced as message is broken 
3: 6763 684 ’ into separate Lines 

3 6764 684 PREVPTR: REF DBGSDLINE_ENTRY, ! Pointer to previous Display Line 

3 6765 6848 , Entry on error message list 

3; 6766 6849 TEMPBUF: VECTOR(256, BYTE), : reaperery buffer for de-tabbed text 

3; 6767 6850 TLEN; ! The Length of the de-tabbed text 

3 6768 6851 

3; 6769 685 ABLE 3 , 

3 6770 685 DBG$F INAL __HANDL; ! Enable the Final Handler during the 

; 6771 6854 : processing of this error 
l 


— 


<9 


De Oe Be Se Be Be Oe Oe Se Oe BH Se Se Se Be Se Be BH Se Se Ge Se Ge Se FH Se oe SH Se Se ae SH Se Se SH Se Oe HSH Se SH Se Oe HSH SH Oe Se Se Se Be Se Be FFF Oe Ge 


DBGSCREEN 
v04-0 


PANS B&B NNT & & ANIA NAINA AIA AI AI PUPP PO PININYPYPIPYINIPINPINIPUPUNOPNINIPINPOND 


DEBUG.SR 


! Pick up the pointer to the selected Screen Display Entry to receive the 
! error message. Then clear DBGSGL_SCREEN_ERROR so that any error in the 
! processing of this error does not cause Ehis routine to be re-entered. 
} (Any such secondary error will thus be output using $PUT.) 


DISPTR = .DBGSGL_SCREEN_ERROR; 
DBGSGL_SCREEN_ERROR = 0; 


Extract the message text's address and length from the RAB. 


NXTMSGPTR = .RABPTRCRABSL_RBF); 
MSGLEN = .RABPTRCRAB$W_RS7J; 
MSGEND = .NXTMSGPTR + [MSGLEN; 


: Set up a loop through the lines of the error message. This loop loops 
! through the individual Lines, separated by carriage-return/Lline-feeds, 
: within the message text. Each such Line must be output separately to 

' the appropriate screen display in order for the Lines to be positioned 
correctly on the screen. 
W 


HILE .NXTMSGPTR LSS .MSGEND DO 
BEGIN 


! Scan the message text for any carriage returns and iine feeds. When 
! a carriage return or carriage-return/line-feed is found, we break the 
i message text into two lines so that we can output the first Line and 
! remember where the rest of the message starts. If no carriage-return 
is found, we output the entire remaining message as one Line. 


MSGPTR = .NXTMSGPTR; 
MSGLEN = .MSGEND ~ .MSGPTR; 
NXTMSGPTR = .MSGEND; 
INCR 1 FROM 0 TO .MSGLEN - 1 DO 
IF .MSGPTRC.1] EQL DBG$K_CAR_RETURN 
THEN 
BEGIN 
MSGLEN = .]; 
NXTMSGPTR = MSGPTRC.I + 1); 
IF gMSGPTRE. 1 ¢ 1) EQL DBGSK_LINE_FEED 
NXTMSGPTR = MSGPTRC.1 + 2); 


EXITLOOP; 
END; 
END; 


! We now have one Line of message text, given by MSGPTR and MSGLEN. 
! This is the message to be output this time through the WHILE loop. 
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; 6829 691 ; 
3 6850 $318 ! If the error message is being directed to a normal display which 
; 6831 6914 : i$ automaticaliy generated with a DO command List, simply cali 
: oes 24k WRITE_LINE to output the error message to the desired display. 
+ 6834 $o17 IF .DISPTRCDBGSB_DISP_KIND] EQL DBG$K_DISP_DO 
; 6835 6918 THEN 
; 6836 6919 DBGSSCR_WRITE_LINE(.MSGLEN, .MSGPTR, .DISPTR) 
; 6837 6920 
; 6838 6921 
; 6839 69 ¢ : If we do not have a SOURCE display at this point, we simply return 
>; 6840 69 ! FALSE to cause the error message to be output the normal way (with 
ls ere #4 ¢ : $PUT). 
3 684 6926 ELSE IF (.DISPTRCDBGSB_DISP_KIND] NEQ DBG$K_DISP_SOURCE) OR 
3 6844 6927 4&4 (.DISPTRCDBGS$L_DISP_CMDLISTJ EQL 0) 
; 6845 6928 3 
3; 6846 6929 4 BEGIN 
3; 6847 6930 4 DBGSGL_SCREEN_ERROR = .DISPTR; 
; 6848 6931 4 RETURN FALSE; 
> 6849 6936 4 END 
; 6850 6933 4 
; 6851 6934 4 
; 685 6935 4 ! The error message is associated with a source display. Massage the 
; 685 6936 4 : text by expanding all tabs to blanks. This is necessary to make 
; 6854 6937 4 ! subsequent length computations and scrolling to the right work 
>; 6855 6938 4 ' correctly. The expanded text is copied into the TEMPBUF temporary 
; 6856 6939 4 ' buffer. 
; 6857 6940 4 : 
3; 6858 6941 3 ELSE 
3; 6859 6942 4 BEGIN 
; 6860 6943 4 TLEN = OG; 
; 6861 6944 4 INCR I FROM 0 TO .MSGLEN - 1 DO 
; 6 6945 5 BEGIN 
; 686 6946 5 
: 6 6947 5 ; : 
; 6865 6948 5 ! If the current character is a tab character, expand it to 
3: 6 6949 5 ' blanks. 
3; 6867 6950 5 ‘ 
; 6868 6951 5 IF .MSGPTRC.1] EQL TAB_CHAR 
3; 6869 6952 5 THEN 
; 6870 69535 6 BEGIN 
3; 6871 6954 6 INCR J FROM 1 TO 8 = (.TLEN MOD 8) DO 
3; 687 6955 7 BEGIN 
3; 687 6956 7 TEMPBUFC.TLEN] = ° °; 
3; 6874 6957 7 TLEN = .TLEN ¢ 1; 
3; 6875 6958 7 IF .TLEN GEQ 255 THEN EXITLOOP; 
; 6876 6959 6 END; 
3; 6877 6960 6 
3; 6878 6 6 END 
3; 6879 6962 6 
; 6880 6965 6 : ; : 
; 6881 6964 6 ! If the current character is not a tab, just copy it as is. 
; eth 6965 g : 
; 688 696 ELSE 
3 6 6967 6 BEGIN 
; 6885 6968 6 TEMPBUFC.TLEN) = .MSGPTRC.1); 


er 
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3; 68 6969 TLEN = .TLEN * 1; 
; 688 £358 END; 
est) $373 IF .TLEN GEQ 255 THEN EXITLOOP 
; ® MITL 4 
; 6890 $376 4 END; 
3; 6891 6974 4 
; 689 6975 4 
3; 689 6976 4 ' Allocate a acroen Display Line Entry for the new error message. 
3; 6894 6977 4&4 ! Then fill in the fields of the Display Line Entry, ing Luding the 
3; 6895 6978 4 ! new text, ang” Link that entry into the source display'’s Error 
3; 6896 6979 4 ' Line Entry ist. Note that we highlight the error message with 
3 pe 344 9280 : : reverse video and bolding. 
3; 6899 6982 4 bLEPTR = DBGSGET Poise Rok INE ENTSIZE + .TLEN/ZUPVAL + 1); 
; 6900 6983 4 DLEPTRCDBG$B_DLINE_R TSPTRCOBG$B_DISP_REND) XOR 
3; 6901 6984 4 bis REND_RV OR DBCSM DISP. REND_BLD); 
; 690 6985 4 DLEPTRCDBGSB _DLINE LENG TCEN; ~ 
3 690 6986 4 DLINE_TEXT ="DLEPTR BBCSA Foe gg CEM, 
3 6987 4 DLINE TEXTC EN; 
; 6905 6988 4 H$MOVE(.TLEN, TEMPBUF, DLINE_TEXTC1)); 
F 6989 4 PREVPTR = DISPTRCDBGSL pip pERROR_ PIRI: 
> 6907 6990 4 WHILE R REVPTRUDBG $L_D DEINE J"neQ 6 po 
4 rosie bad. 2 PREVPTR = PREVETR ieeg LOL IWE FLINKI; 
3 6910 6993 4 PREVPTRIDBGSL_DLINE_FLINK] = .DLEPTR; 
3; 6911 6994 4 
3; 6912 6995 3 END; ! End of source display ELSE clause 
3; 6913 6996 3 
3 69146 6997 2 END; ! End of WHILE loop over error Lines 
: 6915 6998 § 
3 6916 6999 
3 6917 7000 2 ! The error message has been successfully written to the error display. 
: pede 4 Now restore DBGSGL_SCREEN_ERROR and return. 
; 6920 700 DBGSGL ~ SCREEN. ERROR = .DISPTR; 
3; 6921 7004 RETURN TRUE; 
3 6922 7005 
3; 69235 7006 1 END; 
OFFC 00000 eENTRY OD posssce gk {TE ERROR Save R2,R3,R4,R5,R6.- ; 6798 
SE FEF4 CE 9E€ 0000 MOVAB =268(5P) SP ; 
6D 0121 CF DE 0000 MOVAL 20%, (FPS > 6831 
57 00000000" EF D 9000 MOVL DBG$GL_SCREEN_ ERROR, DISPTR > 6863 
00000000° EF D4 it CLRL DBGSGL SCREEN_ 3; 6864 
50 4 AC 00 0001 VL rot ~ RO 3: 6869 
08 A A 0 Ph MOVL > NATHSGPTR : 
5 A C 00 MOVZWL ary LEN 3; 6870 
04 AE BE4 f 0026 MOVAB SNXTRSGPTR RSGLENJ, MSGEND > 6871 
04 AE 0 AE D b8 ¢ 1$: CMPL NXTMSGPTR, MSGEN : 6880 
0 19 1 BLSS 2 3 
00E8 31 00053 BRw 18$ ; 
5A 08 AE DO 00036 2$: MOVL NXTMSGPTR, MSGPTR 3; 6890 
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59 04 AE SAC 3A SUBL3 - MSGPTR, MSGEND MSGLEN : 6891 
08 AE 04 Ar D F MOVL § MSGEND, NXTMSGPTR 7 689 
5] 59 0 44 MOVL §MSGLEN ah + 689 
50 01 ce 0047 MNEGL #1, | : 
1E 4A BRB : 
0D 604A 91 4 3$ CPB (pre #13 + 6895 
59 8 8 005 MOVL MSGLEN + 6898 
08 AE AQGA 3 903 MOVAB 11) mSGPTR]. NXTHSGPTR + 6899 
OA 01 AOGA 9 058 CMPB —s-« 1 1) CMSGPTR + 6900 
0C 12 0006 BNEQ 5$ : 
08 AE 02 AGA % 0 68 MOVAB gst MSGPTR], NXTMSGPTR + 690 
04 1 6 BRB a : 689 
DE 50 51 F2 0006A 4$: AOBLSS R1 + 6893 
02 08 A? 91 00065 5$: CMPB | dati #2 : 6917 
o¢ 12 000 BNEQ 6$ : 
3 DD 0074 PUSHL  DISP + 6919 
7E 9 7D 00076 mova RSGLE (SP) : 
0000v CF 03 re 90079 CALLS #3, DBGSSCR _WRITE_LINE : 
03 08 A? 91 00080 6$ CMPB ss B(DISPTR), #3 + 6926 
05 t2 00084 BNEQ 86 7$ : 
48 A? D 00086 TSTL  72(DISPTR) + 6927 
OA 12 00089 BNEQ = BS : 
00000000 EF 57 00 00088 7S: MOVL  DISPTR, DBG$GL_SCREEN_ERROR + 6930 
0094 31 90092 BRW 19$ + 6931 
56 D4 00095 8$: CLRL TLEN 3 6943 
52 gi CE 00097 MNEGL #1, J + 6944 
F 11 OO09A BRB 14$ : 
09 624A 91 0009C 9$ CMPB  =s-« C1) CMSGPTRI, #9 + 6951 
28 12 000A0 BNEQ 12$ ; 
7E 00 56 01 7A O00A¢ EMUL #1, TLEN, #0, =(SP) + 6954 
50 50 BE 08 78 OO0A EDIV. #8, (SP)+, RO, F 
50 50 C3 OOOAC SUBL3 RO. #8, RO : 
51 04 00080 CLRL CJ ; 
10 11 000B2 BRB 11$ ; 
OC AEG6 20 90 00084 10$:  MOVB #32, TEMPBUFCTLEN] > 6956 
6 D6 00089 INCL _—‘TLEN : 6957 
QOOOOOFF  8F 56 D1 00088 CML TEEN, #255 ; 6958 
EC 51 oF 8 00C4 11$ AOBLEQ RO J. 108 > 6954 
08 11 O0¢8 BRB 13§ > 6951 
OC AES6 624A 90 cA 12$: ROVE (1) CHSGPTRI, TEMPBUF CTLEN] : 6968 
QOOOOOFF BF $6 bf 0002 13$: CML TLEN, #255 ; 6972 
BD 52 9 3 9008 14$:  AOBLSS MSGLEN, I, 9$ > 6944 
50 56 04 ¢ ODF 15$: DIVL3 #4, TLEN, RO > 6982 
04 AO SF 000E3 PUSHAB ) ; 
000000006 90 QI FB anes CALLS a. DBGSGET _MEMORY ; 
08 AB 09 3 5 D fe XORB3 v sPIRD aR (DLEPTR) > 6984 
OA AB 6 90 000F6 MOVB > 6985 
6E Oc AB 9 FA MOVAB EN! ‘outed RT EXT > 6986 
00 BE 56 f MOVB TEN @OLINE TEXT > 6987 
7E 6£ 1 1 0010 ADDL OLINE TERT, -(SP) > 6988 
9E 10 AE 6 28 00106 MOVC TLEN, IWAPBUF a(SP)+ : 
! 


- 
| 
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GSCREEN 18-50 Sep-1 AX-11 Bliss-32 v4.0- Page 240 
Mb e500 ergee= hae PSiF9:eh | HOMES hissese heeO- 28s. ge 976 
58 2c «A? «O9E 001 MOVAB 44(R7), PREVPTR : 6989 
| 68 05 QO1OF 168: STL (PREVPER) ; 6990 
| 58 68 0 113 MOVE —(PREVPTR), PREVPTR ; 6991 
68 B R0 118 17% MOVL DLEPTR, (PREVPTR) + 6993 
| FF 5 118 BRW + 688 
| 00000000° ff bg 11E 18$ MOVL DISPTR, DBGSGL_SCREEN_ERROR : 700 
| 0 01 v0 MOVE #i, RO ; 7004 
50 D4 00129 198 CLRL = RO + 7006 
04 o1 B RET ’ 
0000 0012C 208 . WORD Soys nothing ; 6831 
7E D4 001 : CLRL = SP) ; 
7E 04 + e 6} 2 moran i ap) SP) ’ 
000000006 00 08 FB 001 CALLS #3, DaGSF INAL _HANDL : 
04 00130 RET : 


; Routine Size: 318 bytes, Routine Base: DBGSCODE + 3A50 


Se 


H 14 
] R = - 3 8 = = 
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; 63 5 PhO? } GLOBAL ROUTINE DBGSSCR_WRITE_LINE(LENGTH, TEXTPTR, DISPTR): NOVALUE = 

; 69 5 +509 1 ! FUNCTION 

3; 6928 7010 1! This routine writes a Line of DEBUG output to the current output 

3; 6929 7011 17! Stsploy or to a specified screen orer at: A new Display Line 

; 6950 rig 1! entry s allocated for the new text Line ong is then appended to 

3 24 1 et? : the List of display Lines assocated with this display. 

3; 69 roi 1 ! INPUTS 

3; 69 mis 1! LENGTH = The Length of the text Line, i.e. the number of bytes to be 

; 24 5 rte : retrieved from the TEXTPTR location. 

3; 69 7019 1! TEXTPTR = A pointer to the first byte of the ASCII text which con- 

5 24 : 4 y ; stitutes the Line to be written to the output display. 

; 6940 70 ¢ ,! DISPTR = The Display jo (Display Entry pointer) of the display to 

: 6941 70 1! which this Line of output is to be written. 

3 694 70246 1! 

3 694 7025 1 ! OUTPUTS 

3 6944 7026 1! NONE 

3; 6945 rst 7% 

3: 6946 7028 1 

3 6947 Aik 9 BEGIN 

3 6948 7030 

3 6949 7031 P 

; 6950 res TEXTPTR: REF VECTORC,BYTE), ! Pointer to ASCII text of output Line 
; oe}! ta DISPTR: REF DBGSDISP_ENTRY; ! Pointer to output Screen Display Entry 
3; 695 7035 LOCAL 

3; 6954 7036 BLINK: REF DBGSDLINE_ENTRY, ! Pointer to previous Display Line Entry 
; 6955 7037 CHANGE _FLAG, ' Flag set if Line contents changed 

>; 6956 7038 DLEPTR: REF DBGSDLINE_ENITRY, ! Pointer to the Display Line Entry for 
3; 6957 7039 : the new output Line 

3; 6958 7040 DLINE_TEXT: REF VECTORC,BYTEJ, ! Pointer to text buffer in Line Entry 
3; 6959 7041 FLINK: REF DBGSDLINE_ENTRY, ! Pointer to next a eer ey Line Entry 

; 6960 704 NEW_ ° ! New DROW value if scrolling to bottom 
3; 6961 704 OLD_DROW ' Old DROW value if secon sine to bottom 
3 696 7044 OLDPTR: REF DBGSDLINE_ENTRY, ‘ Pointer to Display Line Entry for old 
3; 696 7045 } text--used to mark changes 

3 7046 OLDTXT: REF VECTORC,BYTE) ! Pointer to line's old text buffer 

3; 6965 7047 TEMPBUF: VECTOR(256, BYTES ! Temporary buffer for de-tabbed text 

: 7048 TEMP_PTR: REF DBGSDLINE_ENTRY, ! Temporary pointer to otepl a? Line Entry 
3 6967 7049 LEN ! The length of the de-tabbed text 

3 7050 WSPTR: REF DBGSDLINE_ENTRY; ! Pointer to window start Line (points 
3; 6969 7051 ! to a Display Line Entry) 

; 6970 705 

3; 6971 705 

3; 697 705 

3 oo? Mae Check that the input parameters are valid. 

3; 6975 705 IF .LENGTH LSS 0 THEN SDBG_ERROR( 'DBGSCREEN\WRITE_LINE 19.33 

3; 697 7058 If .DISPTR EQL 0 THEN SDBG_ERROR('DBGSCREEN\WRITE_LINE 20°); 

3; 697 7059 

; 697 7060 ; 

3; 697 7061 ! Expand all tabs to blanks. This is necossory in order to make subsequent 
; 6980 706 ! Length computations and scrolling to the right work correctly. The 

3; 6981 706 ! expanded text is copied into the TEMPBUF temporary buffer. 
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14 
1b-Sep-1984 0 30:24 AX-11 OL igen 
14-Sep-1984 12:17:4 DEBUG. SRC JDBGS 
7 1 
7065 TLEN = 0; 
7 66 INCR 1 FROM 0 TO .LENGTH = 1 DO 
7 BEGIN 
re 
7079 } If the current character is a tab character, expand it to blanks. 
rors IF .TEXTPTRC.1] EQL TAB_CHAR 
707 THEN 
7074 4 BEGIN 
rene 4 INCR J FROM 1 TO 8 = (.TLEN MOD 8) DO 
7 6 BEGIN 
707 TEMPBUFC.TLEN] = ‘* '; 
7078 TLEN = .TLEN ¢# 1; 
7079 5 IF .TLEN GEQ 255 THEN EXITLOOP; 
7080 4 END; 
7081 4 
7082 4 END 
70835 4 
7084 4 
A ? } If the current character is not a tab, just copy it as is. 
roar § 
7088 4 BEGIN 
7089 4 TEMPBUFC.TLEN] = .TEXTPTRE.1); 
7090 4 TLEN = .TLEN + 1; 
Aad 3 END; 
709 IF .TLEN GEQ 255 THEN EXITLOOP; 
7094 § END; 
7095 
7096 § 
7097 : If the display is already full, meaning that it has the maximum number 
7098 ! of text Lines it is allowed to have, we remove the first Line (the oldest 
7099 : Line) of the display. Note, however, that we reuse that same Display 
7100 Line Entry if it is large enough to hold the new text Line. 
pitt DLEPTR = 0; 
Ay IF ,D1SPTREDBGSW_DISP_LINECNT3 EQL .DISPTRCDBG$W_DISP_MAX_LINECNT) 
7105 B GIN 
ri 
7108 ! Unlink this entry from the doubly Linked Display Line Entry List 
r198 associated with the DISPTR Screen Display Entry. 
7111 DLEPTR = .DISPTRCDBGSL_DISP_START_LINE_PTR); 
Pe FLINK = .DLEPTR DBGSL DL INE FLINK]: 
711 BLINK = .DLEPTRLDBGSL_DLINE_BLINKI; 
7114 FLINKCDBSS$L_DLINE_BLIAK) = TBLINK; 
7115 BLINKCDBGSL_DLINE_FLINK] = .FLINK; 
ois DISPTRCDBG$O_DISP-LINECNT) = .DISPTRCDBG$W_DISP_LINECNT) - 1; 
711 
a9 ! Adjust the window start pointer and DROW if necessary to account 
7120 ! for the fact that the first Line of the display is being removed. 
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1a-Se -1984 02:30: AX-11 BL 
12-808=1 8c 95:70:24 DEBUG.SR 

if ;DISPTRCDBGSW_DISP_DROW] GTR 1 
DISPTRIDBG$W_DISP_DROW] = .DISPTRCDBG$W_DISP_DROW] = 1 


gente Vv 
CJDBGSCR 


ELSE 
BEGIN 
If .DISPTRCDBGSW_DISP_LINECNT] EQL 0 THEN FLINK = 0; 
DISPTRLDBGSL_DISP_WINBOwW_PTR] = AA Lf 
DIsPTR DBG$W-DISP-SCROLLJ = .DISPTRCDBGSW_DISP_SCROLLJ + 1; 


! If the discarded Display Line Entry is too small to hold the new 
' text Line, release it to the memory pool and clear DLEPTR to zero. 
} However, if it is big enough, we keep it and DLEPTR points to it. 


IF TLE GTR .DLEPTRCDBG$B_DLINE_LENGTH] 


BEGIN 
DBGSREL_MEMORY( .DLEPTR); 
DLEPTR = 0; 


! Allocate a Screen Display Line Entry for the new text Line unless we 
} found that we can reuse the Line entry for the discarded oldest line. 


IF .DLEPTR EQL 0 
THEN 
BEGIN 
DLEPTR = DBGSGET MEMORY (DBGSK_DLINE_ENTSIZE + .TLEN/ZUPVAL * 1); 
DLEPTRCDBGSB_DLIRE_LENGTH) = TTLEN; 


the fields of the Display Line Entry, ebay | me the new text, and 
that entry into the display's Line entry list. 


k 
$B_DLINE_REND] = .DISPTRCDBG$B_DISP_REND); 
DLEPTRIDBGSA_DLINE_TEXTJ; 


orr 
m 
zu 


DBGSL_BLINE_ NK = .DLEPTR; 
pecs, DLINE-FLINK) = .DLEPTR: 
PTRCDBG$Q_DISP"LINECNT) = .DISPTRCDBG$W_DISP_LINECNT) + 1; 
DISPTRCDBGSW_BISP_LINECNT) EQL 1 


DISPTRCDBGSL_DISP_WINDOW_PTR) = .DLEPTR; 


——OD"COD"FCOCO:----- 
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GSCREEN 16-Sep-19 730: AX-11 Bliss-32 V4.0-74 Pa 44 
vos 12-868=1 382 95:79:24 UotBuG. Shc IoBaecREEW.0355 1 piel 2) 
If we are supposed to mark changed Lines for this display, compare the 
new text Line to the first ine'on the old-text list. If they differ, 
we highlight the new text Line with reverse video and bolding. 


Fg PTL IOERN DIS? _JOMETLES AND (NOT .DISPTRCDBGSV_DISP_NEWDISP)) 


$3 


ee te ee ee 


BEGIN 

CHANGE pbae = FALSE; 

IF .DISPTRCDBGSL_DISP_OLDTXT_PTR] EQL 0 
CHANGE _FLAG = TRUE 

ELSE 


BEGIN 
OLDPTR = .DISPTRCDBGSL_DISP_OLDTXT PTR): 

DISPTRCDBGSL_DISP OLOTRT PTR) = ,OCDPTREDBGSL_DLINE_FLINK); 
OLDTXT = OLDPTRCDBGSA_DLINE_TEXT); 

CHANGE_FLAG = CHS$NEQ(-TLEN, TEMPBUF, .OLDTXTCOJ, OLDTXT[1}, 0); 
DEGSREL LRERORY( .OLDPTR) ; 


IF _ .CHANGE FLAG 


DLEPTRCDBGS$B_DLINE_REND) = .DLEPTRCDBG$B_DLINE_ REND] XOR 
“tery (DBGSM_DISP_REND_RV OR DBGSM_DISP_REND_BLD); 


! If the screen window is not now positioned at the bottom of the display 
text, force it to the bottom of the text. 


NEW_DROW = .DISPTRIDBG$W_DISP_LINECNT] = .DISPTRIDBG$W_DISP_RLEN] + 1; 
{fF ogPUSPTRCDOGSU_DISP _ORDY LSS .NEW_DROW 


D ore = .DISPTRIDBG$W 
piseie DBG$W mhiD DROW) 
= 


DISPTRCDBGSL_DISP_WINDOW_PTR) = .WSPTR; 
DISPTRIDBG$W_DISP-SCROLLI = 
-BISPTRCDBG$W_DISP_SCROLL] * .NEW_DROW - .OLD_DROW; 


Be Se Se Se Fe Se Ge Se Se Se Se Se Se Ge Ge Ge Se Se Se Se Fe Ge Ge Fe Se Ge Se Se Se Ge Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Ge ee Se Gs Ge Ge ee 
i i i i i i i i i i i i | 
Sess tne ooo 


ee ee ee ee a ee ee et ee ee a a a ed ed ad ed 
Pit, in, Btn PP Dap Dn in Sin Pn, in Sian, in Dp, iy in Pi Pay Pi iy i Pi Pi Si In Hin, Hn Nin i in i ie Ni te te ie te ee i | 


PORIPOPIPIPIPININIPIPIPOPONININIPUPUNINPINININININININININIDD 8 9 9 ot ot 


POPONIPONONONONININ 2 2 BOO 
=PINININININININWI NINA AINA AIP PINIPI PIPPIN ANNA BB EB EWI IIIrnononony 
i] 
‘ 
o 
— 
“” 
vo 
o 
e 
had 
e@e 


SOOOCOCCOCCOVCOOOOOOONO 


40 END; 

o) 

8 : The new text Line has been written to the desired display. Now return. 
45 RETURN; 

46 

47 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


BERS Ree el: Lae RE 


oer REEN 


54 49 52 S57 SC 4E 45 45 4 
7 31 4 

54 49 52 57 SC 4E 4 33 4 
30 5 


000000006 99 
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4 02:30: AX-11 Bliss-32 V4.0-74 Pa 65 
Hr 95:70:24 DEBUG. SRC Sacechcén.o$9s1 ae 353 
«ASCII <23>\DBGSCREEN\<92>\WRITE_LINE 10\ : 
eASCII <23>\DBGSCREEN\<92>\WRITE_LINE 20\ : 
<PSECT DBGSCODE,NOWRT, SHR, PIC,0 

.ENTRY D GSSCR WRITE LINE, Save R2,R3,R4,R5,R6,R7,-; 7007 
movaB -256(§P), SP : 

TSTL LENGTH : 7057 
6GEQ $ : 
PUSHAB P.AIA : 
PUSHL : 
PUSHL #164706 : 
CALLS #3, LIBSSIGNAL : 

MOVL ODISPTR, R : 7058 
BNEQ $ 3 
PUSHAB P.AIB ; 
PUSHL # : 
PUSHL #164706 : 
CALLS #3, LIBSSIGNAL : 

CLRL. =: TLEN : 7065 
MINE GL “i, i : 7072 
CMPB Es @TEXTPTREIJ, #9 : 

BNEQ 6$ : 

EMUL #1, TLEN, #0, =(SP) : 7075 
EDIV. #8. (SP)4+, RI, RI : 
SUBL3 R11. #8, RI : 

CLAL : 

BRB $ é 

MOVB #32, TEMPBUFCSP) : 7077 
CMPL  TLEN, #255 : 7079 
BGEQ 3 
AOBLEQ R1, J, 4$ : 7075 
BRB + 7072 
MOVB aTextPrRe3, TEMPBUF LSP] : 7089 
CMPL _s*TLEN, #2 : 7093 
BGEG §6=s«O9$ : 
AOBLSS LENGTH, I, 3$ + 7066 
CLRL GEPTR ; 2108 
MOVAB (R7), R10 : 710 
CMP (R10), (R10) 3 

BNEQ 3 3 

MOVL § 32(R7), DLEPTR + 7111 
MOVL (DLEPTR), FLINK : 2116 
MOVL 4 (DLEPTRS, BLINK : 711 
MOVL BLINK, 4(FLINK) : 7114 
MOVL LINK, (BLINK) : 7115 
DECW (R195 ; 7116 
CMPW 4(R7), #1 > 712 
BLEQU 10$ : 

DECW a : 7124 
BRB 2$ 3 


— 


— 


DeGstREEN iScdenct9pe 02:40:21 yaN=t BLisg=Sz.ve.0-743 | 


02 AA a AF 10$:  TSTw 2¢R10) 
3 bs 0008 OMe FLANK 
28 «A? 9 00 00086 11$: MOVL  FLINK, 40(R7) 
OC A? B6 A INCW 
56 OA AB 08 0 FD 128:  CMPZ7v #0, #8, 10(DLEPTR), TLEN 
C BGEQ)3=—s«éd:38 
DD 000C PUSHL DLEPTR 
000000006 00 g1 FB 000C CALLS #1, DBGSREL_MEMORY 
D4 000C LRL —OLEPTR 
58 D DO 13$:  TSTL DLEPTR 
15 1 D BNEG «14 
50 56 04 / D DIVL3 #4, TLEN, RO 
04 AO SF 00008 PUSHAB 4(RO) 
000000006 00 1 Ff 900 CALLS #1, DBGSGET_MEMORY 
A 0 p O€ MOVL RO DLEPTR 
OA AB 8 OE MOVE  TLEN, 10(DLEPTR) 
08 a8 09 A7 90 OO0E9 148: MOvB 9(R75, B(DLEPTR) 
50 C ABO OE MOVAB 12(R85, DLINE_ TEXT 
60 56 90 000F MOVB. TLEN, (DLINE_ TEXT) 
01 Ad 6 28 g OOF MOVC3 wen TEMPBUF, 1(DLINE_TEXT) 
5 20 A 3 OOFA MOVAB ; (R?), FLINK 
58 24 A? 00 000F MOVL 6(R7), BLINK 
68 59 DO 0010 MOVL LINK, (DLEPTR) 
04 AB 38 DO 0010 MOVL BLINK, 4(DLEPTR) 
06 Ad 58 DO 00109 MOVL DLEPTR, 4(FLINK) 
58 DO 0010D MOVL  DLEPTR. (BLINK) 
02 AA B86 0011 INCW g(R10) 
01 02 AA B61 0011 CMPW (R10), #1 
04 if 0011 BNEQ 15$ 
28 «A? 58 D0 00119 MOVL DLEPTR, 40(R7) 
40 OA A? 04 €10011D 15$: BBC a4, 19(R7), 19$ 
38 OA A? 93 EO 001 BBS #5. 10(R7). 19$ 
9 D4 001 CLAL CHANGE FLAG 
30 AZ 05 00129 TSTL  48(R7) 
5 iF 0012¢ BNEG  16$ 
59 1 0D 4 E MOVL #1, CHANGE_FLAG 
8 11 00131 BRB 136 
54 30 «A? 09 4 3 16$:  MOVL  48(R7), OLDPTR 
30 A? 64 p 1 MOVL COL DP TAD 48(R7) 
50 OC Ad 9E 001 MOV 12(R4), OLDTXT 
51 Q 9A 0013F MOVZBL COLDTKA), R1 
D4 00142 CL R 
51 00 6E 6 20 D144 CMPCS TLEN, TEMPBUF, #0, R1, 1(OLDTXT) 
0. A 149 
13 00148 BEQL «178 
6 14D INCL RS 
59 DO OO14F 178:  MOVL 5, CHANGE_FLAG 
4 DD 001 é PUSHL 
000000006 00 gi FB 1 CALLS @ DBGSREL MEMORY 
04 9 158 18$:  BLBC CHANGE FLAG, 19$ 
08 A 03 8c 001 XORB2 #3, 8(BLEPTR) 
03 AA 3C 00162 198:  MOVZ2WL ach », RO 
1 12 A? 1 MOVZWL BCR », RI 
0 31 C2 O016A SUBL2. RI, R 
9 D6 00160 INCL NF W_DROW 
50 18 =A? 10 00 ED OO16F CMP2v #0, 7816, 24(R7), NEW_DROW 
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2D 18 0017 BGE 
oH TR RER Bi Grogan 
ae) ee Hp i 
Cae i or: A, Eltoeey, wom 
8 33 33 pe 5} 308: AOBLEQ R3 26s 
28 OA 1 p 0194 MOVL Bask 40(R7) 
2 <P RR oi Fei. 
OC A? 38 2 A $135 SUBW Bub DROW, RO, 12(R7) 
04 OO1A4 228: RET 


; Routine Size: 421 bytes, Routine Base: DBGSCODE + 3B8E 


————— 
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AX-11 Bliss-32 Fh age 
p-19 DEBUG. SRC JDBGSCREEN.B32;1 


ROUTINE FORMAT _SOURCE_LINE(DISPTR, DLEPTR, TEXTPTR, TEXTCNT, BUFFER): NOVALUE = 


! FUNCTION 

This routine formats a source line for output as part of a Screen 
Display. Source Lines are formatted q's terentty than other Lines 

for two reasons: first, the rh | bine Entry has a different format 
for source lines, and second, scrolling to the right or left is done 
in such a way that the Line number cannot be scrolied off the left 
end of the display. In addition, the ‘mark Line’ of a source display 
is a with a small pointer ‘'=>"’, which does not happen with non- 
source Lines. 
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INPUTS 
DISPTR = A pointer to the Screen Display Entry for the display that 
contains the Line being formatted. 


DLEPTR 


TEXTPTR 


TEXTCNT 


- A pointer to the 
being formatted. 


- The address of a 
formatted source 


- The address of a 
of the formatted 


Display Line Entry for the source Line 
peagears location to receive a pointer to 
ine. 


longword location to receive the Length 
source Line. 


BUFFER = A pointer to a 132-character buffer to be used for formatting 
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1 
1 
1 
1 
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§ BEGIN 
2 
2 
: 


! OUTPUTS 
TEXTPTR = The address of the formatted source Line is returned to the 
TEXTPTR Location. 
2 TEXTCNT = The Length of the formatted source Line is returned to the 
TEXTCNT Location. 

2 

26 

26 MAP ; 

26 DISPTR: REF DBGSDISP_ENTRY, ! Pointer to source Display Entry 

727 DLEPTR: REF DBGSDLINE_ENTRY, ' Pointer to Display Line Entry 

727 TEXTPTR: REF bb al BE of ! Pointer to returned text pointer 

727 TEXTCNT: REF VECTORC1,LONG), ! Pointer to returned text length 

ts? BUFFER: REF VECTORC,BYTE); ! Pointer to editing buffer 

727 LOCAL 

727 LINENUM, ! Line number of this source Line 

727 TLEN, ! Length of edited source Line 

oe? TPTR: REF VECTORE BYTE); ! Pointer to edited source Line 

728 

00 728 , : ¥ 

7201 728 ! Edit the source Line number of this source Line into the editing buffer. 
7o0e 728 : The number is truncated to six digits. Note that we include a “=>"' in 
sor A : front of the Line number if this is the ‘‘marked’’ Line of the display. 
7205 728 CHSFILL(" *, 8, .BUFFER); 
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BUFFER(6) = ':°; 
Heggrner RE DOGSL PL INE LIMUA GTR 0 
BEGIN 
LINENUM = sDLEF TREOBGSL OL INE _L IMUM; 
DECR I FROM 5 TO 0 DO 
BEGIN 
BUFFERC.1) = Fit leyte w MOD 10) + '0O'; 
LINENUM = .LINENUM/10; 
IF .LINENUM EQL 0 THEN EXITLOOP; 
END; 
Fogg PLP TRE EO OR, PL IME LD EQL .DISPTRCDBG$L_DISP_MARKLINEJ 
BEGIN 
Hd bh =z ‘e's 
BUFFERL1J] = ‘>'; 
END; 
END; 


: Copy the actual text of the source Line into BUFFER. The right scrolling 
specified in DCOL is performed at this time. 


TPTR = DLEPTRCDBGSA_DLINE_TEXT2]; 
TLEN = MIN(.DBG$SRC_TERM QIDTH - 8 
- .DISPTRIDBG$W_DISP_DCOL] + 1)); 


MAX(O, .TPTRCOS T 
CHSMOVE(.TLEN, TPTRC.DISPTRLDBG$W_DISP_DCOLJJ, BUFFERL8I); 
! Finally return the Length and location of the edited source line and 
return control to the caller. 
TEXTENTEO) = ,TLEN + 8; 


TEXTPTRLO] = .BUFFER; 
RETURN; 
END; 
OOFC 00000 FORMAT_SOURCE_LINE: 
.WORD™ Save R2,R3,R4,R5,R6,R7 
56 16 AC DO 00002 MOVL BUFFER R 
20 6E 00 2c 90006 MOVCS #0, (SP), #32, #8, (R6) 
06 Ab A 90 0000C MOVB #58, 6(R6) 
51 08 AC 00 00010 MOVL  DLEPTR, R1 
52 10 Al b 0014 MOVL  16(R1). R2 
é 1 6 18 BLEG 6. 3$ 
54 06 1A MOVL Re. LINENUM 
3 0 p 001D MOVL #5. iI 
99 54 4 A 9020 1$ EMUL #1. LINENUM, #0, -(SP) 
0 BE A 78 000 EDIV. #16, (SP)+, RO, RO 


ee 
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Routine Base: DBGSCODE + 3033 


129 bytes, 


; Routine Size: 


} 
| 
' 
| 
! 
j 
| 


15 

DBGSCREEN 1b-Se -1984 02:30:2 AX-11 Bliss-32 v4.0-74 
“vO6= 1e-8ep-19 4 95:79:24 DEBUG. ERCIDBGSCREEN. O39; 1 
- f ny if $ } ROUTINE HANDLER_EXECUTE_SAVE(SIGARG, MECHARG, ENBLARG) = 

: 7248 308 | i FUNCTION 

: 7249 7? 7 | This routine is the Condition Handler for the DBGSSCR_EXECUTE_SAVE_CMD 
; 7250 7330 1! routine. Its purpose is to release the Screen pispl ey Entry and its 

: 7251 rast eS associated Display Line Entries in case the DEBUG Memory Pool runs out 
BF 26 7 § 1! of memory in the middle of — a new Display Entry while executing 
; 725 7 ,: a SAVE command. After releasing all such memory (if any) in response 
: 7254 7334 1! to the DBGS_NOFREE condition, this routine resignals the condition. 

3 f 2? f 5 : } Any other condition is resignalled immediately. 

: 7257 7 ; 1! INPUTS 

3 28 4 : : } SIGARG = The condition Signal Argument vector. 

: 7260 Pet : MECHARG = The condition Mechanism Argument vector. 

: 1268 7 4e ;% ENBLARG = The condition Enable Argument vector. This handler expects 
; 726 73435 1! this vector to contain one element, ENBLARGL1), which points 
3: 7264 7344 1! to the Screen Display Entry to be released in case the ‘'no 

: 7265 7345 1! free storage’ error occurred. 

; 7266 7346 1! 

3; 7267 7347 1 ! OUTPUTS 

; 7268 7348 1! This routine always returns SS$_RESIGNAL as its result. 

3: 7269 7349 1! 

; 7270 7350 1 

; ast) P32) 2 BEGIN 

; 5598 533g é MAP 

3 7274 7354 2 SIGARG: REF VECTORC,LONG) ! Pointer to Signal Argument vector 

3 ost? eeee ; ENBLARG: REF VECTORE,LONG; ! Pointer to Enable Argument vector 

: 7277 7357 OCAL 

3; 7278 7358 DISPTR: REF DBGSDISP_ENTRY, ! Pointer to Display Entry to release 
: 7279 7359 DLEPTR: REF DBGSDLINE_ENTRY, ! Pointer to Display Line Entry 

; 7280 7360 NEXTDLE; ! Pointer to next Display Line Entry 
BB HBS 

; 585 F368 ; tela 

; 7284 oeee ! Unless this is the DBGS_NOFREE error condition, we resignal immediately. 
; 7285 7365 2 ! No other condition should occur, so we want to preserve the current state 
; 7286 7366 2 ' for debugging if something else did occur. We also resignal immediately 
: ree? est } if there is no Screen Display Entry to release. 

> 7289 7369 if .SIGARGC1)_NEQ DBG$_NOFREE THEN RETURN SS$_RESIGNAL; 

: 7290 7370 IF .ENBLARGC1) EQL 0 TREN RETURN SS$_RESIGNAL; 

7. ee 

: 159 F398 ' There is a Screen Display Entry to release. First loop to release all 

; ree 7305 Display Line Entries attached to the Display Entry. 

: 7 96 7 2% DISPTR = -ENBLARGE 1}; 

> 729 037 DLEPTR = .DISPTRCDBGSL DIsP START_LINE_ PTR); 

; 7298 7378 WHILE .DLEPTR NEO DISPTRCDBGSL_DISP_START_LINE_PTR DO 

: 7299 7379 BEGIN 

3; 7300 7380 NEXTDLE = .DLEPTRCDBGSL_DOLINE_FLINK); 

3; 7301 7 3 DBGSREL_MEMORY(.DLEPTR); 

; 7302 7382 DLEPTR = .NEXTDLE; 
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F 15 
DBGSCREEN 16-Sep-19 :30:2 AX=-11 Bliss-32 v4.0-7 Page 252 
mi 1o-308- 138 06:70:28 DEBUG. SR RCIDBGSCREEN.BS B32;1 . ($25 
: 7303 7383 END; 
; 7304 7384 
; 7305 7385 
; 4 4] 4 8 Then release the Screen Display Entry itself and resignal the condition. 
: 7308 7388 DBGSREL_MEMORY(.DISPTR); 
; 7309 7389 RETURN SS$ _RESIGNAL; 
: 7310 7390 
: 7311 7391 +1 END; 
003C 00000 HANDLER at Sed 
ORD Save R2,R3,R4,R5 : 7326 
55 000000006 00 9E 00002 ROVAB evese y “RewORY RS : 
50 04 AC 00 00009 MOVL SIGA : 7369 
00028332 =BF 04 AO 01 0000D CMPL rate * 06658 é 
2C 12 00015 BNEQ 3$ $ 
50 0c AC 00 00017 MOVL ENBLARG, RO : 7370 
04 ag be 0001B TSTL 4(RO) : 
23 13 OOOI1E BEQL 3$ : 
53 04 Ad 00 p6020 MOVL 4(RO), DISPTR : 7376 
52 20 A3 00 00024 MOVL 32(DISPTR), DLEPTR : 7377 
50 20 AS YE 00028 1$: MOVAB (DISPTR), R 3; 7378 
50 52 D1 0002C CMPL DLEPTR, RO 3 
0D 13 0002F BEQL 2$ 3 
54 $6 dO 00031 MOVL (DLEPTR), NEXTDLE : 7380 
52 DD 000 PUSHL ODLEPTR ; 7381 
65 01 FB 00036 CALLS #1, DBGSREL_MEMORY : 
52 54 p00 00039 MOVL NEXTDLE, DLEPTR : 7382 
EA 11 b003¢ ARB 1$ : 737 
3 DD OOO3SE 2%: PUSHL DISPT 3; 7388 
65 01 FB 60049 CALLS #1 DBGSREL _MEMORY 3 
50 0918 8F 3C 00043 3$: MOVZ2WL #2528, RO ; 7389 
04 00048 RET 3 7391 


3; Routine Size: 73 bytes, Routine Base: DBGSCODE + 30B4 


ies 


a2 


| bBescreen 


3; 7313 7 35 
3 73146 739 
; 7315 7394 
3; 7 1 7395 
3; 731 7 38 
; 7318 739 
3; 7319 7398 
; 7320 7399 
3; 7321 7400 
s 7 ¢ 7401 
3 7 rAtg 
3; 7326 740 
3; 7325 7404 
3 7 $$ 7405 
3 7 7406 
: 7328 7407 
3 7 $3 7408 
; 7350 7409 
: 7331 7410 
.. 7 3 7411 
; 733 els 
: 7334 741 
: 7335 7414 
3; 7336 7415 
3; 7337 7416 
3; 7338 7417 
: 7339 7418 
3; 7340 7419 
3; 7341 rege 
: reeg 7421 
3: 734 74 ; 
3 7344 74 

3: 7345 7426 
3: 7346 7425 
3: 7347 7426 
3; 7348 7427 
3; 7349 7428 
3; 7350 7429 
: Pees 7430 
3; 7352 7431 


; Routine Size: 23 bytes, 
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14-Sep-1984 DEBUG. SR 


ROUTINE HANDLER SCROLL SOURCE (SIGARG, MECHARG, ENBLARG) = 
i FUNCTION 


This routine is the Condition Handler for the DBGSSCR_SCROLL_SOURCE xx 
routines. Its purpose is to restore the value of DBGSGL_SCREEN_SOURCE 
in case an error condition forces a premature exit from the current 
source display scrolling operation. The address of the value to be 
restored is passed in as an Enable argument. 


INPUTS 


SIGARG = The condition Signal Argument vector. 
MECHARG = The condition Mechanism Argument vector. 


ENBLARG = The condition Enable Argument vector. This handler expects 
this vector to contain one element, ENBLARG(1), which con- 
tains the the address of the location that contains the 

value to which DBGS$GL_SCREEN_SOURCE should be restored. 


OUTPUTS i 
This routine always returns SS$_RESIGNAL as its result. 
BEGIN 
MAP 
ENBLARG: REF VECTORC,LONG); ! Pointer to Enable Argument vector 
LOCAL 


A 
PTR: REF VECTORCL1, LONG); ! Pointer to value to be restored 


Restore the value of DBGSGL_SCREEN_SOURCE and resignal the condition. 
PTR = .ENBLARG[ 


1); 
DBGSGL_SCREEN SOURCE = .PTRCO]; 
RETURN” SS$_RESIGNAL; 


END; 
0000 00000 HANDLER_SCROLL_SOURCE: 
-WORD Save nothing 
50 OC AC 00 00002 MOVL ENBLARG 
50 04 Ad 00 00006 MOVL 4(RO), PTR 
00000000° fF 0 pO QOO0A MOVL (PTR), DBGSGL_SCREEN_SOURCE 
0 0918 F r Baie +t a #2328, RO 


Routine Base: DBGSCODE + 3DFD 
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1erSep-1986 $3:i7:45 | EbeeuG. SAcSbaGScREEN B59: 1 ene 


ROUTINE PARSE __DISPLAY_NAME(INPUT_DESC, PERCENT_ALLOWED) = 


FUNCTION 


This routine parses (scans and picks up) a screen display name. It 
is called during the parsing of all Screen Debugging commands which 
have display names in their syntax. 


INPUTS 


INPUT_DESC = A string descriptor to the input Line being parsed. 
The descriptor is assumed to point to the start of the 
display name or to a blank or tab before it. 


PERCENT_ALLOWED = If this flag is TRUE, the display name is allowed 
to begin with a percent sign, thus denoting one of the 
display proygensyacess such as ZNEXTDISP, etc. If this 
flag is FALSE, the percent sign is not allowed to start 
the display name. 


! OUTPUTS 


INPUT_DESC = The input are descriptor is updated to point to the 
had character after the display name picked up by this 
routine. 


A pointer to the display name in Counted ASCII format is returned as 
the routine's value. 


BEGIN 
MAP 
INPUT_DESC: REF BLOCKC,BYTE); ! Pointer to input string descriptor 
CAL 
CHARLEN, ! Character length of input string. 
CHARPTR: REF VECTORC,BYTE), ! Character pointer into input string 
NAMEPTR: REF VECTORC,BYTEJ; ! Pointer to the ASCIC display name 


! Set up the character pointer and string length we will use and update 
as the display name is scanned. Also get a buffer to hold the name. 


CHARPTR = .INPUT_DESCCDSCSA_POINTER); 


CHARLEN = .INPUT-DESCCDSC$W-LENGTH); 
NAMEPTR = DBGSGET_TEMPMEM(82/4); 
NAMEPTR(O) = 0 


First scan past any leading blanks or tabs. 
WHILE  (- CHARPTREO) EQL * ") OR (.CHARPTRCO) EQL TAB_CHAR) DO 
CHARPTR ~CHARPTR + 1; 


CHARLEN = .CHARLEN - 1: 
END; 


15 
DBGSEREEN 1b-Sep-1966 02:30:21 yAR=1) @Ligse82 y 


; 7411 7489 ! Then scan past the leading percent sign if there is one and if one is 
3 rig reoy : allowed on this command. 
3: 7616 rt8s If .PERCENT_ALLOWED AND (.CHARPTRCO) EQL ‘%') 
3; 7415 749 THEN 
: rie 7494 BEGIN 
3; 741 7495 CHARPTR = .CHARPTR + 1; 
5 is 74 CHARLEN = .CHARLEN = 1; 
3; 741 749 NAMEPTR([O) = 1; 
> 7420 2498 NAMEPTRL1) = '&'; 
3; 7421 74 END; 
1 ee 
3 ss 3 F288 } Now scan the display name. Copy the name itself into the NAMEPTR buffer. 
3; 74 $ 7504 WHILE ((.CHARPTR(O) GEQ ‘A*) AND (.CHARPTRCO) LEQ 'Z')) OR 
3; 74 7505 ((. CHARPTR(O] GEQ ‘O") AND (.CHARPTRCO] LEQ °9"°)) OR 
3: 7428 7506 (.CHARPTRCOJ EQL '$') OR (.CHARPTRCO) EQL °_*) 
3 7429 7507 dO 
3; 7430 7508 BEGIN 
3; 7431 £208 If .NAMEPTRCO) GEQ 80 THEN SIGNAL (DBGS_NAMTOOLONG, 1, .NAMEPTR); 
3 743 510 NAMEPTR[O) = SPIRCOd + 1; 
3 743 7511 NAMEPTRE .NAMEPTR(OJJ = .CHARPTRCO); 
3; 74 Peig CHARPTR = .CHA + 1; 
3; 7435 751 CHARLEN = .CHARLEN = 1; 
: 74 7514 END; 
3: 7437 7515 
3; 7438 7516 
3 7439 7517 : We are done scanning the display name. Update the input string descriptor 
g re P18 2 to indicate the new parse location. Then return the display name pointer. 
: 744 7520 IF .NAMEPTRCO) EQL 0 THEN DBGSSYNTAX_ERROR(.INPUT_DESC); 
3 744 7521 peal 395 8453 eg ted = ,CHARPTR; 
3 74446 75 ¢ INPUT DESCCDSCSW_LENGTH] = .CHARLEN; 
3 7465 75 RETURN .NAMEPTR; 
: 7466 7524 
3 7447 7525 «(1 END; 
003C 00000 PARSE_DISPLAY_NAME : 
eWORD Save R2,R3,R4,R5 
54 04 aC 00 00002 MOVL INPUT_DESC. Rd 
53 04 As po 0006 MOVL 4(R4)7 CHARPTR 
55 64 3C€ QOQO0A MOVZWL (R4), CHARLEN 
15 0D 00000 PUSHL #21 
000000006 98 9} FB 000F CALLS #1, DBGSGET_TEMPMEM 
2 3 518 MOVL RO, NAMEPTR 
6 4 1 CLRB ( EPTR) 
20 8 91 1B 1$: CMPB (CHARPTR), #32 
13 1 BEQL 
09 91 CMPB (CHARPTR), #9 
1 ; BNEQ 3$ 
1) 23: INCL CHARPTR 
Dd 0 DECL CHARLEN 
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7432 
7474 
7475 
7476 


7477 
7482 


7484 
7485 


“y 
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3; Routine Size: 


2 


a BF 
5A sOBF 
30 
39 
24 
SF SF 
50S 


000000006 00 


50 
6042 


000000006 00 
04 AG 

64 

50 


154 bytes, 


Routine Base: 


os 2 U3 Sm 
5 Bi 
1 2 
2501 F 80 00 

83 1 : ) 

1F 41 

65 91 at 

1 is 004 

gh fT Sait 
1F 4C 

63 91 Boek 

08 1B 0005 

63 91 00053 

06 13 00056 

63 91 00058 

24 «(12 Bop ee 

62 91 iF 

11 s1F Bppe 

52 DD 00064 

01 0d 00066 
Q0028A82 8F DD 00068 
03 FB 0006 

62 96 0007 

62 QA Bea 

83 90 O007A 

55 D7 OO07E 

BB 11 itt 

62 95 0008 

09 12 00084 

54 DD 00086 

3 FB 00088 

3 00 0008F 

55 BO 00093 

52 00 00096 

04 00099 


DBGSCODE + 3&14 


b-sep- 


1984 :30: AX-11 Bliss-32 V4.0-74 
ae 95:70:24 DEBUG SRC IOBGSCKEEN. O45; 1 
BRB 1$ 
3$ BLBC PERCENT ALLOWED, 4$ 
CMPB {LHARP TR) #3 
BNEQ & 
INCL CHARPTR 
DECL CHARLEN 
MOVW #9473, (NAMEPTR) 
$ CMPB ss (CHARPTR), #65 
BLSSU 
CMPB = (CHARPTR), #90 
BLEQU 
S$: CMPB  =s-« (CHARPTR), #48 
BLSSU 
CMPB = (CHARPTR), #57 
BLEQU 7$ 
6$: CMPB = (CHARPTR), #36 
BEQL «6s 7$ 
CMPB = (CHARPTR), #95 
BNEQ 9$ 
7$ CMPB = (NAMEPTR), #80 
BLSSU 8S 
PUSHL NAMEPTR 
PUSHL 
PUSHL #166530 
CALLS #3, LIBSSIGNAL 
8$: INCB = (NAMEPTR) 
MOVZBL (NAMEPTR), RO 
MOVB (CHARPTR)+, (RO)CNAMEPTR 
DECL § CHARLEN 
~ BRB 4 
9$ TSTB  (NAMEPTR) 
NEQ 10$ 
PUSHL R4 
CALLS #1, DBGSSYNTAX_ERROR 
10$:  MOVL CHARPTR, 4(R4) 
MOVW § CHARLEN, (R4) 
MOVL NAMEPTR. RO 


Kk 15 
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; oe 4 § } ROUTINE PARSE _WINDOW_NAME(INPUT_DESC) = 

3; 7451 7 8 1 ! FUNCTION 

3 74 § 7 1 3 This routine parses socene and picks up) a screen window name. It 
3; 74 7530 1! is called during the parsing of all Screen Debugging commands which 
3 i 2 f 1 : } have window names in their syntax. 

3 74 7 § 1 ! INPUTS 

3; 745 7 * INPUT_DESC = A string descriptor to the input Line being parsed. 

3; 7458 7538 1! The descriptor is assumed to point te the start of the 

3 et2e f : window name or to a blank or tab before it. 

3; 7461 7536 1 =! OUTPUTS 

: 746 7539 1! INPUT_DESC = The input eernen descriptor is updated to point to the 
3; 746 7540 1! first character after the window name picked up by this 

3 7464 7541 1! routine. 

3; 7465 Pete 3 

3 oe 7545 1! A pointer to the window name in Counted ASCII format is returned as 
: 746 7544 1! the routine's value. 

3; 7468 7545 1! 

3; 7469 £268 1 

; 7470 754 BEGIN 

3 7671 7548 

3: 747 7549 MAP : 

3 nie r330 INPUT_DESC: REF BLOCKC,BYTE]; ! Pointer to input string descriptor 
3: 7475 F326 

: 7476 755 " ! Character length of input string 
3; 7477 7554 CHARPTR: REF VECTORC,BYTE), ' Character pointer into input string 
3: 7478 7555 NAMEPTR: REF VECTORE BYTE); ! Pointer to the ASCIC window name 
3; 7479 7556 

3; 7480 7557 

3: 7481 7558 

3; 748 7559 ! Set up the character pointer and string Length we will use and update 
3 Set £260 : as the window name is scanned. Also get a buffer to hold the name. 

3; 7485 7368 CHARPTR = .INPUT_DESCCDSCSA_POINTER]; 

3: 7486 756 CHARLEN = . INPUT _DESCCDSC$W_LENGTH); 

3; 7487 7564 NAMEPTR = DBGSGET_TEMPMEM( 82/4); 

3; 7488 7565 NAMEPTR(O) = 0; 

3; 7489 75 

3; 7490 756 

: mel P28 : First scan past any leading blanks or tabs. 

: 749 7353 WHILE (.CHARPTRCO) EQL * *) OR (.CHARPTRCO) EQL TAB_CHAR) DO 

3: 7496 7571 BEGIN 

3 7495 P2378 CHARPTR = .CHARPTR + 1; 

3 7496 757 CHARLEN = .CHARLEN - 1; 

3; 7497 7574 END; 

3; 7498 7575 

3 7499 rere 

5 7200 jeu Now scan the window name. Copy the name itself into the NAMEPTR buffer. 
; 750 7378 WHILE ((. CHARPTR GEQ *A‘) AND (.CHARPTR 8} LEQ *Z°)) OR 

; 750 7280 ((, CHARPTR GEQ *O*) AND (.CHARPTRLO) LEQ °9°)) OR 

: Pepe ree} (. CHARPTRE EQL *$*) OR (.CHARPTRCO) EQL ‘_*) 
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1SBeo-1986 99:40:24 


EN m SIGNAL (ORGS NAMTOOLONG, 1, .NAMEPTR); 


CHARPTREOD: 


! We are done scanning the window name. Update the input string descriptor 
; to indicate the new parse location. Then return the window name pointer. 


iF .NAMEPTR(OJ ‘+ of INYeRS baat SHE ERROR(. INPUT_DESC); 


I NPUT_D DESCCDSCSA 

INPUT" DESCLDSCSW_ “CENGTAD = .CHARLEN; 
RETURN .NAMEPTR;~ 

END; 


003C 00000 PARSE_WINDOW_ NAME: 
RB Save % R3,R4,R5 
INPUT DESC, 


WOR 

54 04 aC 00 00002 MOVL 

53 04 AG 4 00006 MOVL 
55 64 3C OO00A MOVZWL 

15 DD 00000 PUSHL 

000000006 00 01 4 QO00F CALLS 

2 2 Rohe 

20 63 91 0001B 1$ CMPB 

05 13 0001 BEQL 

09 63 91 808 CMPB 

96 12 000 BNEQ 

P] 4] 4 ; ag INCL 

55 D7 000 DECL 

A 11 00029 BRB 

41 8F 6 91 00028 3$: CMPB 
§ 1F QO0O02F BLSSU 

5A OF 63 91 00031 CMPB 
15. 1B 000 3 BLEQU 

30 3 91 4 4$: CMPB 

1f A BLSSU 

39 63 91 0005C CMPB 

08 18 4 F BLEQU 

24 8 91 00041 5$: CMPB 

§ 13 00044 BEQL 

SFG § 91 00046 CMPB 

4 1 4A BNEQ 

50 BF 62 9 4C 6$: CMPB 
11 s1F BLSSU 

¢ DD PUSHL 

DD PUSHL 

00028A82 F DD 6 PUSHL 
000000006 00 3 FB 0005C CALLS 


Ax-11 BL 
DEBUG. SR 


4(R4)7 PE MARPTR 
(R4), CHARLEN 


R) 
ern 
(CHARPTR), 
3$ 


CHARPTR 
amet 


(CHARPTR), 
4% 

(CHARPTR), 
(CHARPTR), 
(CHARPTR), 
(CHARPTR), 
(CHARPTR), 
(NAMEPTR), 


NAMEPTR 


£ 
#1, OBGSGET_TEMPMEM 
RO, NAMEPTR 


#32 
ag 


#166530 
#3, LIBSSIGNAL 


“~ 


vOe=000 ee 3:79:83 — YotauG. Sac Sbeascheen.036. 1 Pane 875 


6 6 6 7$: INCB (NAMEPTR) : 7385 
59 A 0006 MOVZBL (NAMEPTR) » RO : 75 
| 604 9 MOvB ey ha (RO) CNAMEPTR] 3 
p C DECL gn : 7588 
B BRB : 75 
9 8$: TSTB (NAMEPTR) : 7595 
1 7 BNEQ : 
4 DD 0007 PUSHL : 
000000006 00 1 F 0076 CALLS DBGSSYNTAX ERROR : 
06 AG DO 0007D 9$: MOVL mt pe ; 596 
$s 8 1 MOVW SRAM EN thay ; 759 
0 5 0 MOVL NAMEPTR, RO ; 7598 
4 00087 RET ; 7600 


; Routine Size: 136 bytes, Routine Base: DBGSCODE + 3EAE 
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esep-19be 1:17:63 — EDeauG. SAcSbaGSCREEN.OS9; 1 Page $89 
ROUTINE PARSE_WINDOW_PARAMETERS(INPUT_DESC, R_BEG, R_LEN, C_BEG, C_LEN): NOVALUE = 


i FUNCTION 
This routine parses a ‘‘screen window specification’ of the form 


>>> tie! 


PAPAIN 
, ak et ee 


> >_>) 
ene 


PUP PVPUSPV SSIS SIS 
SSSVSUI UV SSS 


OCONOUE WOOD 


SN 


SSN 
DPPAPPAAAAAAII 


BSSSsSesss 


PRIM DPIMIMIPIPINIMNIMNINIPIN IA at at at tn rt a st a i kt 


ed eee ee ee ee ee ee ee ee 


““(RBEG, RLEN, CBEG, CLEN)*’. 
to the first character after 
routine is called. 


all 
the 


INPUTS 


The parse pointer is sonunee to point 
he opening left parenthesis when this 
This routine picks up and returns the values of 


he window parameters, and peeves the parse pointer pointing to 
irst character after the clos EG 
and CLEN parameters ore optional in 

default values if om 


ng Ay parenthesis. The C 
4 he input string, and are given 
ed. 


NOU EN © The address of the input string descriptor for the command 


ne to be parsed for a window specification. 


R.BEG = The address of a longword location to receive the RBEG value. 
R.LEN = The address of a longword location to receive the RLEN value. 
C.BEG = The address of a longword location to receive the (BEG value. 
C.LEN = The address of a longword location to receive the CLEN value. 


OUuTP 


UTS 
INPUT_DESC = The INPUT_DESC string descriptor is updated to reflect the 


new parse location after picking up the window parameters. 


R.BEG = The value of the RBEG parameter (the beginning row location 
of the screen window) is returned to the R_BEG location. 
R_LEN = The value of the RLEN parameter (the row length or height 
of the screen window) is returned to the R_LEN location. 
C_BEG = The value of the CBEG parameter (the soptenred column loca- 
tion of the screen window) is returned to the C_BEG location. 
C_LEN = The value of the CLEN parameter (the column length or width 
of the screen window) is returned to the C_LEN location. 
BEGIN 
MAP 
R_BEG: REF VECTOR(C1,LONG), ! Return location for RBEG parameter 
R_LEN: REF VECTORL1,LONG], ! Return location for RLEN parameter 
C_BEG: REF VECTOR(L1,LONG), ! Return location for CBEG parameter 
C_LEN: REF VECTORL1,LONG); ! Return location for CLEN parameter 
LOCAL 
CBEG, : Depianing column location of window 
CLEN, ' Column length (width) of window 
RBEG, ; Beg taning row location of window 
RLEN; ! Row length (height) of window 


2 16 


| DBGSCREEN 16-Sep-1984 02:3 AX-11 Bliss-32 v4.0- Page 261 
| v0G- 14-Sep-1984 93: #9: ra DEBUG. SRC JDBGSCREEN.B 63551 ' (88) 
; 758 7658 ' Pick up the RBEG parameter (the beginning row location) and check it 
; 7388 £928 i tor being within Rts valid range. : : 
75 7661 Dacsnsaye DECIMAL_INTEGER(. INPUT DESC, RBEG) 
7986 766 IF (.RBEG LSS 1) OR (.RBEG GTR DEGSK_PASTE "5 t2E - 2) 
758 766 EN 
7588 7664 SIGNAL (DBGS_INVWINPAR, 1, .®BES); 
7589 7665 
7590 7666 
7591 7667 ! Pick up the RLEN parameter (the row Length or height of the display) and 
F236 reee ! check it for being within its valid range. A comma must precede it, 
: 7394 gory if NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_COMMA, 1) 
£238 rer DBGSSYNTAX_ERROR(.INPUT_DESC); 
7598 7674 wet ~PEC IAAL INTEGER(.INPUT_DESC, RLE 
7599 7675 IF (.RLEN-LSS 1) OR (.RBEG + .RLEN GTR BBGSK: * PASTE _SIZE = 1) 


EN’ 
SIGNAL (DBGS_INVWINPAR, 1, .RLEN); 
: Next pick up the optional column location and width (CBEG and CLEN). 
We do this only if there is not a closing parenthesis at this point. 
CBEG = 1; 


CLEN = 132; 
If NOT IB sbemaTCHC. INPUT_DESC, DBGSCS_RPAREN, 1) 
BEGIN 
IF NOT .DBGSGL_DEVELOPER[7] THEN DBGSSYNTAX_ERROR(.INPUT_DESC); !<<----- 


! Pick up the CBEG parameter (the beginning column location) and check 
! it for being within its valid range. A comma must precede this 
parameter. 
IF NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_COMMA, 1) 

DBGSSYNTAX_ERROR(. INPUT_DESC); 


DBGSNSAVE _DECIMAL_INTEGER(.INPUT_DESC, CBEG); 
IF .° CBEGLSS 1) OR (.CBEG GTR 132) 


NS IGNAL (DBGS_INVWINPAR, 1, .CBEG); 
! Pick up the CLEN per aneter (the column Length or width of the 
i display) and check it for being within its valid range. A comma 
i must precede it. 
ir NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_COMMA, 1) 
DBGSSYNTAX_ERROR(.INPUT_DESC); 


DBGSNSAVE _DECIMAL_INTEGER(. INPUT _DESC g FegN?: 
IF (.CLENTLSS 1) OR (.CBEG + .CLEN GTR 133) 


f Be Be Be Oe Be Be Oe Se Se Bt Se Se Se Ss Se Be Oe Se Ge Be Se Ge Ge BH SH Se BH Se Se Se Se Ge Oe Se SF Ss Se Se Se Se Fe SH Se See Se SHES Se Sees Se Se Sseee 
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| 16 
DBGSCREEN 1b-sep-19 4 02:30:21 AxX-11 Bliss-32 V4.0-74 Page 262 
| v04-000 ae 05:70:24 oraue.enciopascheén.o.1 . (883 
: 7033 tate HEN GNAL (DBGS INVWINPAR, 1, .CLEN) 
; o te sALEN?; 
3: 7641 7717 r4 
3; 764 7718 
s Nat aay } Finally make sure the closing parenthesis is there too. 
5 fee? a 1 IF NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_RPAREN, 1) 
E 7647 77 § 3 DBGSSYNTAX_ERROR(.INPUT_DESC); 
3; 7648 7724 «3 
3 Aes a 2 2 END; ! End of code for optional parameters 
: 7651 r7s6 $ 
3; 765 7728 ! ALL window parameters have been parsed. Return the parameter values we 
; 765 pres !' found to the caller. Then return. 
3; 7654 7730 : 
3; 7655 7731 R_BEGCO] = .RBEG; 
: 7656 aa R_LENCOJ = .RLEN; 
3; 7657 ue 2 C_BEGLO) = .CBEG; 
; 7658 7734 2 C_LENLOJ = .CLEN; 
: 7659 7735 2 RETURN; 
3; 7660 7736 2 
3; 7661 fist END; 
O1FC 00000 PARSE _WINDOW degre 5 
. WORE Save R2,R oR7,R8 : 7601 
58 000000006 00 9€ 00002 MOVAB DBGENSAVE soECIMAC | NTEGER, R8 : 
57 00000000G 00 9€ 00009 OVAB LIBSSIGN R?7 r 
56 00000000G 00 9€ 00010 MOVAB DBGSSYNTAX: ERROR, R6 3 
55 00000000G 00 9€ 00017 MOVAB OBGS$NMATCH 3 
54 00000000' EF 5 ph MOVAB  DBGS$CS_COMMA, R4 ; 
5E 10 C2 0002 SUBL2 #16, SP F 
5E DD 00028 PUSHL P : 7661 
52 04 AC DO 0002A MOVL INPUT_DESC, R2 : 
52 DD O0002E PUSHL R : 
68 02 FB 00030 CALLS #2, DBGSNSAVE_DECIMAL_INTEGER 3 
53 6E ti 00033 MOV RBEG, R3 : 7062 
05 15 00036 BLE r 
13 53 D1 00038 CMPL R3, #19 : 
99 15 B08 B BLEQ 2 ; 
DD 00030 1$: PUSHL R : 7664 
4 DD 0003F PUSHL Z 
00028AA2 F DD 00041 PUSHL #166562 F 
67 3 FB 00047 CALLS oye LIBSSIGNAL i 
1 DD Q004A 2%: PUSHL ; 7670 
| “4 BB 0004C PUSHR AAMC 
65 03 FB 004E CALLS a3, r DBeaNMATCH : 
05 23 E8 00051 BLBS 3 
5 DD 00054 PUSHL Re" : 7672 
66 01 FB 056 CALLS DBGSSYNTAX_ERROR é 
04 AE 9F 00059 38: PUSHAB R len ; 7674 
5 DD 05C PUSHL R Ps 
68 0 FB OOOSE CALLS #2, DBGSNSAVE _DECIMAL_INTEGER ; 
| 


D 16 
16-Sep-1984 :30:2 AX-11 Bliss=-32 V4.0-74 Page 263 
1o- 08-1388 05: 70:2 DEBUG. SRC IDBGSCREEN-B3 31 . (883 
04 AE D5 0061 TSTL = RLEN : 7675 
OA 1 064 BLEGQ 4 : 
50 53 04 Ar C1 00066 ADDL3 RLEN. R3, RO : 
14 50 D1 00048 CMPL RO, #20 F 
0— 15 006 BLEG $ : 
04 AE Dd 00070 4$ PUSHL LEN : 7677 
01 DD 0007 PUSHL # : 
00028AA2 8F DD 0007 PUSHL #166562 : 
67 03 FB 00078 CALLS #3, LIBSS!GNAL ; 
08 AE 01 DO O007E 5S: MOVL @ + 7683 
OC AE 84 BF 9A 0082 MOVZBL #132, CLEN + 7684 
01 OD 008 PUSHL #1 + 7685 
78 Aa 9F 00089 PUSHAB DBGSCS_RPAREN : 
3¢ DD 0008C PUSHL R ; 
65 03 FB OO08E CALLS #3, DBGSNMATCH : 
03 50 E9 00091 BLBC =—_«aRO,. 6S ; 
008 31 00094 BRW 4 : 
000000006 00 95 00097 6$ TSTB §DBGSGL_DEVELOPER : 7688 
05 19 0009D BLSS = 7$ F 
52 DD 0009F PUSHL R2 ; 
66 01 FB OOOA1 CALLS #1, DBGSSYNTAX_ERROR : 
01 DD D00A4 7$: PUSHL #1 + 7695 
14 BB 000A6 PUSHR #*M<R2,R4> ; 
65 03 FB OO00A8 CALLS #3, DBGSNMATCH : 
05 50 €8 OOOAB BLBS RO. 8$ ; 
52 DD OOOAE PUSHL R2 : 7697 
66 01 FB 000B0 CALLS #1, DBGS$SYNTAX_ERROR : 
08 AE 9F 00083 8$: PUSHAB (BEG : 7699 
52 DD 000B6 PUSHL R2 : 
£8 02 FB 000B8 CALLS #2, DBGSNSAVE_DECIMAL_INTEGER ; 
08 AE 05 000BB TSTL  CBEG : 7700 
OA 15 OO0BE BLEG $ ; 
00000084 aF 08 AE 01 000C0 CMPL CBEG, #132 F 
OE 15 000C8 BLEG 108 ; 
08 AE DD OO0CA 98: PUSHL  CBEG : 7702 
01 DD 000CD PUSHL : 
00028AA2 8F DD OOODCF PUSHL #166562 : 
67 03 FB 00005 CALLS #3, LIBSSIGNAL ; 
1 DD 00008 10$:  PUSHL #1 : 7709 
14 BB OOODA PUSHR #*M<R2,R4> : 
65 03 FB 000¢ CALLS #3, DBGSNMATCH : 
05 50 £8 O00DF BLBS RO. 118 : 
52 DD O00E2 PUSHL : 7711 
66 01 FB BROES CALLS #1 DBGSSYNTAX_ERROR 4 
OC AE 9F OOOE7 11$:  PUSHAB CLEN : 7713 
52 DD OOOEA PUSHL Re : 
68 02 FB OODEC CALLS #2, DBGSNSAVE_DECIMAL_INTEGER : 
OC AE D5 OOOEF TSTL cLEN : 77146 
OF 15 000F2 BLEQ ~=-12$ ; 
0 08 AE 0c AE C1 00084 ADDL3 CLEN BEG. RO ; 
00000085 &F 50 D1 OOOFA CMPL = RO, 1 ; 
0€ 15 00101 BLEG)~=s«éd3:38 ; 
OC AE DD 00103 12$:  PUSHL CLEN ; 7716 
01 DD 001 PUSHL ; 
00028AA2 BF DD 001 PUSHL #166562 ; 
67 03 FB O16 CALLS #3, LIBSSIGNAL 3 
01 DD 00111 13% PUSHL #1 s Fret 
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|; Routine Size: 311 bytes, Routine Base: 
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ce 
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F 16 
DBGSCREEN 16-Sep 30:2 AX-11 Bliss-3 
| % 500 14-Sep Laat 98: 19: re DEBUG. SRC JDBG 
ROUTINE REDIRECT _SCREEN_OUTPUT: NOVALUE = 


' FUNCTION 

This routine redirects screen output to logical name DBGSOUTPUT if 
a translation exists for this logical name. Such redirection is 

useful for directing DEBUG output to a second terminal, for example. 

If no translation for DBGSOUTP t guists. no redirection is done and 

all screen output goes to SYSSOUTPUT. 


wr 


EEN.839;1 Poge $8) 


i INPUTS 
NONE 


i OUTPUTS 
i NONE 


BEGIN 


CAL 
LOGNAMDESC: BLOCK 


~“ 

o 

~ 
SQN 
SN NNN NSS SS 
PUPP SISSIES BS BB EEE 


OONAOVUVE WN" CO OONOUE WO 0@ 


: aelhey descriptor for egg 3s Hg + name 


8 BYTE) ! 

7683 RE SUL TBUF : VECTORESO,BITES, i Result string buffer for $TRN 
7684 RESULTDESC: BLOCK(8,BYTE), ' Result string descriptor for NE TRNLOG 
7685 7760 STATUS; ! Screen package status code 
7686 776 
7687 776 
7688 776 
7689 7764 !' Set up the eqcqeeary descriptors and the attempt to translate logical 
7690 7765 name DBGSOUT 
769 7767 LOGNAMDESCCDSC$B =CL ASS. = DSCSK_CLASS_S; 
769 7768 LOGNAMDESCCDSCS$B_DTYPE) = DSCSK_DTYPE_T; 
7694 7769 LOGNAMDESCCDSC$W_LENGTH) = 10; 

DSCSA_POINTER] = UPLIT BYTE(ZASCII ‘DBGSOUTPUT"); 
7696 7771 RESULTDESCCDSCS$B_CLASS) = DSCSK_CLASS_S; 
7697 777 RESULTDESCCDSCSB_DTYPE) = DSCSK_DTYPE_T; 
7698 777 RESULTDESCCDSCS$W_LENGTH) = 80; 
7699 4 RESULTDESCLDSCSA-POINTER] = RESULTBUF; 
7700 775 STATUS = $TRNLOGTLOGNAM = LOGNAMDESC, RSLBUF = RESULTDESC); 


! If there is no translation, return immediately without redirecting the 
screen output. 


IF .STATUS EQL SS$_NOTRAN THEN RETURN; 


' There is ® translation for DBGSOUTPUT. Redirect screen output to 
' DBGSOUTPUT If the redirection fails for any reason, redirect output 
' back to SYSSOUTPUT ‘ 


' 

' 

' 

' 

STATUS = con gh -OUTPUT(1, LOGNAMDESC); 
IF NOT .STAT 

THEN 

(DBG$_UNAOPESCR ~STATU 


IGNAL 
OGNAMDESCCBSCSA PEOINtERS ypu byte caasct! *SYSSOUTPUT"); 
CRSSET_OUTPUT(1> LOGNAMDESC); 
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3; Routine Size: 113 bytes, Routine Base: DBGSCODE + 406D 


pa19be 1e:ip:43 — EDeeUG. SRC SDBGSCREEN.050: 1 


j 
; 7720 7795 END; 
: 7721 £796 
: i § 8 ' The redi ion i leted 
3 4 e redirection 1s completed. Now return. 
> 7726 pres i : 
3: 7725 7800 RETURN; 
: 7726 7801 
: 7727 7802 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
54 55 50 54 55 4F 26 47 42 44 008246 P.AIC: . ASCII \DBGSOUTPUT\ 
54 55 50 54 55 GF st 53 59 53 OO82E P.AID: .ASCII \SYSSOUTPUT\ 
-EXTRN SYSSTRNLOG 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
0004 00000 REDIRECT ~SCREEN_ QUTPUT ; 
52 000000006 00 9€ 00002 MOVAB SCRSSET OUTPUT, R2 
SE AG AE. -9E 00009 MOVAB =92(SP)> SP 
54 AE O10EQ00A 8F 00 0000D MOVL #17694730, LOGNAMDESC 
58 aE 00000000" EF 9€ 00015 MOVAB P.AIC, LOGNAMDESC+4 
01060050 &8F DD 00019 PUSHL #176 
04 08 AE 9E 0002 OVAB RESULTBUF, RESULTDESC+4 
7E 7C 00028 CLRO ~($P ) 
7E D4 000¢A CLRL (S 
OC AE 9F 0002C PUSHAB RESUL TDESC 
7E D4 O002F CLRL (SP 
6C AE 9F 00031 Pl at LOGNAMD ESC 
000000006 00 06 FB 00034 Ch #6, SYSSTRNLOG 
00000629 =F 50 D1 00038 CMPL Ss STATUS, #1577 
2c 13 00042 BEQL ~=sés«ésdS$ 
58 AE OF 00044 PUSHAB LOGNAMDESC 
01 DD 00047 PUSHL @# 
62 08 FB 00049 CALLS #2, SCRSSET_OUTPUT 
21 E8 0004C BLBS STATUS, 1$ 
50 OD 0004F PUSHL 
7E D4 00051 CLR =(SP) 
00028FC3 8F DD 00053 PUSHL #167875 
000000006 00 03 FB 00059 CALLS #3, LIBSSIGNA 
5C AE 00000000' EF 9€ 00060 MOV P.AID, LOGNAMDESC +4 
58 AE «OF 00068 PUSHAB LOGNAADESC 
01 dD 00068 PUSHL #1 
62 02 FB 90060 CALLS #2, SCRSSET_OUTPUT 
04 00070 1$: RET 
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OUTPUTS 
NONE 


BEGIN 
MAP 


H 16 
| DBGSCREEN 16-Sep-1984 02:30:2 AX-11 Bliss-32 v4.0-74 Page 267 
v04-00 14-Sep-19 4 95:79:24 DEBUG. SRCIDBGSCREEN B35: 1 ; 7 (0) 

44 2 7003 ROUTINE REGISTER_DISPLAY(DISPTR, REGVECTOR): NOVALUE = 
7731 PROS ! FUNCTION 
77 § Pe08 : This routine generates the contents of a REGISTER screen display. 
77 780 : It accepts a pointer to a REGISTER Screen Display Entry and a 
7734 7808 : pointer to a vector of register values as inpuf and generates 
7735 7809 : the full contents of that screen display using the register values 
7736 7810 : in the input register value vector. 
7737 7811 : 
77 rig ! INPUTS 
7739 781 ! DISPTR = A pointer to the Screen Display Entry for the register 
roy rete } screen display to be generated. 
774 7816 : REGVECTOR = A pointer to a fou*geee vector containing the register 
774 7817 ‘ values to be printed in the DISPTR register screen display. 
7744 7818 : The segreter vector is a vector of 17 longwords containing 
7745 7819 : the walues of registers RO - R11, AP, FP, SP, PC, and PSL 
7746 78 ? } in that order. 

2 i 

' 

4 1) 

5 

6 

7 

8 

9 

0 
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DISPTR: REF DBGSDISP wee Pointer to Screen Display Entry 


N 

~ 

ww 

_ 
SNS NSN SSS 
9 G9 OD 09 09 09 09 0D C9 OD CD. 


7756 : REGVECTOR: REF VECTORL,LONG); ! Pointer to register value vector 
g BUILTIN 
eet PROBER; ! Probe a location for read access 

7761 7835 LOCAL 
776 7836 RC,LONG) The Argument Pointer value (AP) 
776 7837 BLINK: REF DBGSDLINE ENTRY, Pointer to previous Display Line Entry 
7764 7838 LEPTR: REF DBGSDLINE_ ENTRY, Pointer to current Disp ay Line Entry 
7765 7839 FLINK: REF DBGSDLINE gNTRY, Pointer to next Display Line Entry 

66 7840 HEXDESC: BLOCK(8,BYTE String descriptor for HEXSTRING 
7767 7841 HEXSTRING: VECTOR 8, BYTE ‘ Hexadecimal format of register value 
7768 784 LINE_TBL: VECTORC5, LONG), Table of pointer to Display Lines 
7769 784 MSG_CENGT Length of returned message text 


Message descriptor for SGETMSG 

The Processor Status Longword value 
Rendition code for changed values 
The Stack Pointer value (SP) 

Status returned by SGETMSG q 
Pointer to text contents for a Line 


NGTH, 
MSGDESCR: BLOCK(8,BYTE], 
PSLUAL, 


REND, 
SPVAL: REF VECTORC,LONG), 
STATUS 

TPTR: REF VECTORC, BYTE); 


Check the DISPTR input parameter for validity. 

4 -DISPTRCDBG$B_DISP_KIND] NEQ DBGSK_DISP_REGISTER 
SDBG_ERROR("DBGSCREEN\REGISTER_DISPLAY 10°); 

IF (.DISPTRCDBG$W_DISP_LINECNT] NEQ 0) AND 


PIRSA IPPPININMININIMINININYIAINIPUPIPININDINININPYNIPYNINPININININYD) 2 8 9 8 tt 
> 
v 
< 
> 
- 
se 
@ 
mm 
wn 
< 
m 
o 
= 
Oo 


SSS less sissies ee ms 
¢ De Se Se Ge Be Ge Be Se Oe Se Se Se Be Se Be Ss Se Se Se Se Se Se Se FHSS Se Be Ss Oe Ge Se Se Se Se Se Oe Ss Se Oe Os Se Oe Se FH Se Ss Se Se Os os Oe Oe se Seteeeee 
N ANN 
ANNs 
ou 
ovoman 
~~ 
0 09 CD CD CD 
WANG 


16 
DBGSEREEN rg-Sep-1964 02:40:21 yayett BLigs=52 ve.0n762 age, 268 


: r7e6 7e60 (. DISPTRCDBGSW_DISP_LINECNT] NEQ 5) 

3 77 7861 THEN 

; 7788 7e06 SDBG_ERROR( 'DBGSCREEN\REGISTER_DISPLAY 20°); 

; 7789 786 

; 7790 7864 

3; 7791 7865 ! If this register is empty (meaning that it does not yet contain any text 
3 738 78 ! Lines), fill in the register display template. If text lines exist, they 
3; 779 786 ! are assumed to contain the original template with register values filled 
: ae. rece } in, so that the template does not need to be regenerated. 

3; 7796 7870 REND = .DISPTRCDBG$B8_DISP_REND] XOR 

3; 7797 rer) DBGSA pisr REND_RV OR DBGSM_DISP_REND_BLD); 

; 7798 7 % IF .DISPTRCDBGSW_DISP_LINECNT) EQ. 0 

3; 7799 787 THEN 

3; 7800 7874 BEGIN 

: 7801 7875 REND = .DISPTRCDBG$B pis? EM); 

3; 780 rB76 DISPTRCDBG$W_DISP_DROW) ="1; 

; 780 7877 

BO i Spiny 6 api boy 

: ! Loop to generate the templates for the five Lines of the display. 

: 7806 7880 § i : 

3; 7807 7881 INCR I FROM 0 TO 4 DO 

3 8 7882 4 BEGIN 

3; 7809 78835 4 

3; 7810 7884 4 

3; 7811 7885 4 ' Allocate the Dis cm Line Entry for the current Line and set up 

3 reg rene : } its contents including the text of the Line. 

3; 7814 7888 4 DLEPTR = DBGSGET gi tts wey DLINE_ENTSIZE + (80*2)/%UPVAL + 1); 

3: 7815 7889 4 DLEPTRCDBGS$B_OLINE_LENGTH) = 80; 

: 7816 7890 4 DLEPTRLDBG$B_DLINE_REND] = .DISPTRCDBG$B_DISP_REND); 

3; 7817 7891 4 CASE .1 FROM'O TO & OF 

3; 7818 7892 4 SET 

3; 7819 7893 4 

3; 7820 7894 4 0): 

3: 7821 7895 4 TPTR = UPLIT BYTE(80, ZASCII ‘RO: xxxxxxxx RI: xxxxxxxx ', 
: 782 7896 4 "R2: xxxxxxxx R35: xuxxxnnx GAPsxxxxxxnx @SPsxnxxaxxx "); 
: 782 7897 4 

3 7824 7898 4 1]: 

3: 7825 7899 4 TPTR = UPLIT BYTE(80, ZASCII “RG: xxxxxxxx RS: xxxunnxx ', 
3; 7826 7900 4 "R6: coOOOOOO R7: sOOOOOOX #4 :OOOOO0O © - #4 sOOOOOOG "): 
3; 7827 7901 4 

3; 7828 7902 4 (2): 

3; 7829 7903 4 TPTR = UPLIT BYTE(80, ZASCII ‘RB: xxxxxxxx RO: xxxxxxxx ' 

; 78350 7904 4 *"RIOsxxxxxxxx RIDsxxxxxxnx Bs XXXKKKKX $B: KKKKKKKX "5; 
3; 7831 7905 4 

3; 783 7906 4 3): 

3; 783 7907 4 TPTR = UPLIT BYTE(80, ZASCII “AP: xxxxxxxx FP: xxxxxxxx ° 

3 7834 7908 4 "SP: xuxxxxuxx PC: xxmmeam #1250 | #125 5; 
3; 7835 7909 4 

3; 78 7910 4 4): 

3; 783 7911 4 TPTR = UPLIT BYTE(80, ZASCII ° . 

; 7838 7912 4 e Nix Zix Vix Crm 'S; 
3; 7839 7913 4 

: 0 7914 4 TES; 

: 7841 7915 4 

> 7842 7916 4 CHSMOVE(81, .TPTR, DLEPTRCDBGSA_@LINE_TEXT)); 
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ep 19be 13:17:48 — EpEaUG. SRCSDBGSCREEN.035; 1 


Link the new Display Line entry into the Line entry chain for 
the DISPTR display. be t ncrement the display’s Line count. 
Then loop for the next Line. 


' 
i 
' 
FLINK = DISPTR poset _DISP att INE _PTRI; 
BLINK sb INK DBGSL“OLINE_B 
DLEPT TatDaG L_DLINE_F FINE) = = Aa 3 
DLEPTR poset DLINE BLINK] = .BLINK; 
FLINKCOBG LBLINE BLINK} = .OL PTR: 
BLINK apese LINE_FLINK] = .OLEPTR; 
DISPTRCDBG$S@_DISP-LINECNT) = LOISPTREDBGSU DISP_ LINECNT) | + 1; 
IF .1 EQL 0 THEN BISPTRCDBGSL_DISP_WINDOW_PTR] = .DLEPTR; 
END; ! End of Line initialization loop 
END; ! End of display template initialization 
' Set up the cine table with pointer to the five display lines. Also clear 
out the Line's rendition vector (which immediately follows the text). 
DLEPTR : pierraceoen _DISP_START_LINE_PTRI; 
INCR I FROM OT 
ae 
LINE_TBLC. id = 
TPTR7= DLEPTR pacsa OL ine 
CHSFILL C-DISPTR DBGSB DisP TRENDS. 80, TPTR(81)); 
DLEPTRCDBGS$V_DLINE_RERNDFLG] = 
DLEPTR = .DLEPTRCDBGSL_OLINE “LINED: 


: Set up the string descriptor used for hexadecimal formatting. 


HEXDESC DSC$B_ CLASS] = DSCSK_CLASS_ 3 

HEXDESCCDSCS$B_DTY At = DSCSK-DTYPE_T 
HEXDESCCDSCSW_LENGTH) = 8; 
HEXDESCCDSCS$A_ ~POINTER] = HEXSTRING; 


' Fill all the register values into their respective slots in the register 
display. All values are formatted in hexadecimal. 


incr 1 FROM 0 TO 15 DO 


OTSSCVT_L_ TECREGVECTORE 13, HEXDESC, 8); 
DLEP TR = TLINE TBLL.1/4); 

= DLEPTR REDBGS$A_DLINE_TEXT 
REGISTER, FILL(, BEPTRe 8, “NEN tiine. TPTRE(.1 MOD 4)*13 + 5), REND); 


! Fill the first few values from the Argument Vector and from the top of 
the stack into the register display. 


ree 
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16-Sep-1984 02:30: AX-11 Bliss-32 v4.0-74 P 270 
13-3087 1 38% 05: 70:24 DEBUG. SRC Seaechein.o3s;1 og (60) 


: 7900 7974 APVAL = .REGVECTO ORE 2} 

; 7901 7975 SPVAL = ne Cyes to RL14); 

3 F308 797 INCR I FROM 0 TO 3 DO 

mR Ble = ne rene. 

3 e 1); 

: 7905 797 TPTR = DLEPTREDBGSA. DLINE_TEXT2; 

3 £308 7980 

3; 790 7981 

; 7908 798 : Fill the I-th value of the Argument Vector into the reqteter display. 
3 as as +, If that element is not readable, use ‘‘-noread-"' instead. 

; 7911 7985 if PROBER(ZREF(G’, ZREF(4), APVALE.1)) 

3; 791 79 THEN 

; 791 798 OTSSCVT_L_TZ(APVALC.1], HEXDESC, 8) 

3: 7914 7988 

3; 7915 7989 ELSE 

: jad eas! CHSMOVE(8, UPLIT BYTE('=-noread-"), HEXSTRING); 

; 7918 jaa) REGISTER_FILL(.DLEPTR, 8, HEXSTRING, TPTRC58), .REND); 

3; 7919 799 

; 7920 7994 

3; 7921 7995 ! Fill the I-th value off the Stack Pointer (SP) into the register 
; y ¢ re display. If that element is not readable, use ‘=noread-"" instead. 
: 7924 7998 if PROBER(ZREF(O), ZREF (4), SPVALC.1)) 

3: 7925 7999 THEN 

; 7926 8000 OTSSCVT_L_TZ(SPVALC.1], HEXDESC, 8) 

3: 7927 8001 

3; 7928 E008 ELSE 

: ja , Sp bz CHSMOVE(8, UPLIT BYTE('-noread-"), HEXSTRING); 

: at} 444 3 REGISTER_FILL(.DLEPTR, 8, HEXSTRING, TPTRC72), .REND); 

3; 793 8007 END; ! End of loop for @AP+x and aSP+x 

3: 7934 8008 

: 7935 8009 

3; 7936 8010 ! FILL im the message text (if any) that corresponds to the value in RO. 
3 att 4 apt) The message text is truncated to the first 60 characters. 

: 7939 $018 DLEPTR = .LINE_TBL(4]: 

: 7940 8014 TPTR = DLEPTRUDB GSA, D INE f TENT I: 

3: 7941 8015 CHSFILL(" °, 60, 1)) 

3 7948 016 SG_DESCRCDSC$B_CLA Cth ats = bscsx CLASS. S: 

: 794 01 MSG_DESCRUIDSC$B_DTY at = DSCs “DTYPE_T; 

3 7944 018 SG_DESCRLDSCSW_ pense 6 

+ 7945 019 SG~DESCRLDSCSA~ INTER] = TPTRO1); 

+ 796 P 920 STATUS = SCEIMSC(RSGID -REGVECTORCO} 

3: 794 021 i LEN = MSG ae BUFADR = MSG_DESCR, FLAGS = 0); 
3 eee 3 § it (.STATUS EQL SS$_MSGNOTFND) OR (NOT .STATUS) 

: 7950 024 CHSFILL(* *, 60, TPTRC1)); 

: 7951 025 

3; 795 ry $ 

; 795 0 ' FILL in the values of the four condition codes (N, 27, V, and C) into the 
3 ee 69 3 i Last Line of the register display. 

3; 7956 030 PSLVAL = ,REGVECTOR(16); 
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00000000000 
UEWwh—OO° 
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1$- Se 4 :2 AX-11 Bliss-32 V4.0-74 
1e8ep-19ke 13:49:43 — EokauG. Sacdoacececen.o%3; 1 
HEXSTRINGCO) = .PSLVAL<V_(3)> + ‘0°; 
REGISTER Pay SOL Erie, 1, HEXSTRING, TPTRC67), .REND); 
REGISTER FIGLC BLEPYR. 17 HEXSTRING. TPTRE71) REND).; 
HEXSTRINGCO) = .PSLVAL<V_(1)> ¢ ‘O': wn i 
REGISTER Pays Ober ia, 17 HEXSTRING, TPTRC75], REND); 
HEXSTRING(CO) = sPOLVAL<y.(0)> + *O0°; 
REGISTER_FILL(.DLEPTR, 17 HEXSTRING, TPTRL79], .REND); 
The register display is fully generated. Now return. 
RETURN; 
END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
45 52 43 53 47 4 44 1D 00838 P.AIE: .ASCII <29>\DBGSCREEN\<92>\R STER PLAY 1\ 
$3 49 44 SF 52 45 54 53 00847 meh eccnlonnsbnae tess. stad 
30 00855 ASCII NON 
$3 2g $3 33 $ : ry 8 £44 P.AIF: .ASCII <29>\DBGSCREEN\<92>\REGISTER_DISPLAY 2\ 
0 Sete ASCII \ON 
0 00874 P.AIG: .BYTE 80 
78 78 #78 78 $0 3A 30 52 00875 eASCIIT NRO: xxxnnxxx RI: como \ 
78 78 78 78 #78 78 ¢ A ett 
78 78 78 78 $0 3A 2 0088F eASCII NR2: xxxxuxxx R3: xxxunnnx | GAPsxxnnncen 
HAR AR ARE Bie 
78 78 78 3A 50 53 40 $0 00887 eASCII \ @SPixxxxxxxx \ 
8 008CS P.AIH: .BYTE 80 
g 4 ve 4 $8 3 20 ‘ Bpace ASCII NRG: xxxnnxxx RS: sooo \ 
78 78 #78 7 3 A 36 52 008E0 ASCII \R6: xxxxxxxx R72 cOOOOOO | #4 s2OOOGOOEN 
AAA AR A Se 
78 78 78 3A 34 2B 8 0908 eASCII NO oe6suxxxxxnx \ 
pais P.AII: .BYTE 80 
78 78 78 7 $8 A 38 091 eASCII \RB: uuuxxxxx RO: xxxxnxan \ 
78 78 78 7 0 3A 3g8 
f 4 4 4 3 ; H ¢ $3 | eASCIIT NRVOsxxxnxxxx RID exc +B: uxxunnnn 
78 78 78 7 is 7 8 3A 94F 
78 78 78 3A 38 2B 20 8 959 eASCI] \. *8:xxxxuxxx \ 
967 P.AlJ BYTE 80 
78 78 78 7 § A 41 aos eASCIIT NAP: xxxxxxxx FR: sooo \ 
78 78 78 7 8 A 9 
4 f 4 A ; age ASCII] NSP: xunxnane PC: xan O12: ann 
78 78 78 #78 7 ig § A 9Aa0 
78 78 78 3A 32 31 2B a 9AA eASCI] \ ¢02:axxuxxxx \ 
a eae 
$3 38 30 38 38 38 $8 33 bors 
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000000006 

A 
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2f 
6 4 
04 08 
00000000" 
00028362 
52 
5 1E 
05 
00000000° 
9 00028362 
i 09 
50 
6E 09 
A6 
AE 20 
98 
9 
Ag 50 
ao 09 


58 00000000° 
58 00000000° 
58 00000000° 
58 00000000" 
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D4 
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V4.0°74 


2 Ax-11 Ot igsnse 
GSCREEN.832;1 


DEBUG. SRCJDB 
\ 


\n Z:m Vix Crm \ 
\-noread-\ 
\-noread-\ 


SYSSGETMSG 
DBGSCODE ,NOWRT, 


. 
. 


; ve R2,R3,R4,R5,R6,R7,R8,RI,R10,R11 


DISPTR, R6 
B(R6), #4 


P.AIE 
#| 


#164706 
#3, LIBSSIGNAL 
30(R6), R2 


R2, #5 
P.AIF 
x 


#164706 

#3, LIBSSIGNAL 
(R6), RO 

#3, RO, REND 

Re 


3$ 

13$ 

9(R6), REND 
#1, 24(R6) 
s2in6), 4(SP) 


TC 
#1, DBGSGET_MEMORY 
RO DLEPTR 
#86. 10(DLEPTR) 
9(R6), B(DLEPTR) 
6-58: 
$-5$;- 
8$-35.- 
$-5$'- 


10$- 
P.AIG, TPTR 
Pp 


SHR, PIC,0 


eAlJ, TPIR 


1i$ 
PLA 
11$ 
PLA 
11$ 


N:\ 
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8 1 -11 Bliss-32 v4.0- Page 273 
19-3on7 1386 Oe: 70:2) YAN CREEN.B39;1 (60) 
DBGSCREEN 1e-geb-19be 13:19:45 — EDeeuG. eRcdoBes Boe 
VOS= TR ° : 
, MOVAR PAIK, TP : 791 
oc Ad és morons Ha aoa! 8: ROVL fee TET genres 2 0 : : 
17 OS OBR tttee MOVL © 4(FLINK), BLINK : 7955 ; 
5B be AP ge MOVL = FLINK, (BLEPTR) : 79 ; 
69 27 0 900C BLINK, 4(DLEPTR) : 9355 ; 
06 Ag 8 09 i movt  BLEPTR, 4 CFLINK) : 9058 
Se 9 0 000CB OV. DLEPTR, (BL : 7999 
68 1E Ab 86 OOCE ieee i (R6) 3; 7930 e 
SA D5 00001 ea 
33 D6 00005 MOV DLEPTR, 40(R6) : 7881, é 
eo 04 pg $59 12$: AOBLEQ #4, 1 4 pre : 7940 
85 24 20 Ab DO O00DD 18: MOVL 32(R6), DLE $ eet ° 
2% 04 OO0E) MOVE. -DLEPTR, LINE TBLCII e ie : 
59 D0 OO0ES 148: MOVE DLEPTR, LIN 
= wet Oc A9 9E O00EB MOVAB — 12(R9), I ; 7945 : 
DF eRe LG ie, et, sneer 7 : 
nies. et mn ee 2 #1, 9(DLEPTR) F309 : 
09 «Ag 1h fe boies Cove (DLEPTRD DLEPTR + 5041 | 
= 39 o, FS 90100 MOVE. #9694728" HEXDESC 88 
30 AE 0100098 BF DO 00104 MOVAB HEXSTRING, HEXDESC+4 : 7964 3 
o 68 AE BB O0Tt3 MOVL -REGVECTOR. R6 : 7967 : 
” ™ 85 D4 00115 fen 1, + 7964 : 
$ : : 
HEH Bis Mies Eee! 
sitet 06s rs petit CALL a, ‘orssevt L.12 7965 
50 rege 22 06 50 bO19A move ns j{attror. DLEPTR : 7966 
2 oc Ro Se OOISt MOVAB ; 7967 
38 “0 @ 00185 NUL ~(SP) 
7E 98 2 04 78 0013, EDIv, = a "Legh RO, RO 
50 50 05 AOSD SF pote PUSHAB 5(RO) CTPTR} : 
30 AE 9F 00146 PUSHAB ING ; 
08 DD 00149 var : 
co0ov BRU Gath, Hey Mevggpe ru : Be 
C1 52 wo & FS 801 2¢ MOVE GBCR6): APVAL : 7975 
28 38 Ag DO 0015A MOVL 56(R6), SPVAL : 7998 
SA 8 ba 00136 or eat , NE TBLCII, DLEPTR 
3 oc ERS Be doles | movaB setae 
58 6847 DF 00169 PUSHAL taPvats ee ; 
00 O¢ 001 PROBER #0, # pee 
9E 04 1) 48 3196 BEQL ; 798 
08 Dd 00172 PUSHL #8 air 
$4 AF OOtTh PUSHAL CAPVAL ICI] ; 
cont 17h CALLS. 3 TSSCVT_U_12 : 
000000006 00 B AP gate BRB s«1BS 


1 
DBGSCREEN ibese -1984 02:30:2 K-11 Bliss-32 V4.0-74 Page 274 
v06=000 12-908= 1382 03: #9: 3 {OEBUG. SRC JDBGSCREEN.B32; 1 9° 60) 
28 AE 00CI0000" EF 08 28 01 317$:  MOVC3 #8, P.AIL, HEXSTRING : 7990 
oF DD 0018C 18$:  PUSHL REND + 7992 
34 A oF 8 1ae PUSHAB 58 (TPTR) 8 
0 AE 9F 0019 PUSHAB ta : 
Q DD 00194 PUSHL é : 
9 DD 0196 PUSHL DLEPT ; 
0000v CF 05 FB 0019 CALLS 4 "REGISTER. FILL : 
6A47 DF 00190 PUSHAL A : 7998 
9E 04 00 O¢ 01A0 PROBER #4, alSP)+ : 
11 13 OO1A4 BEQL : 
08 oD O1A6 PUSHL + 8000. 
34 AE OF OO1A PUSHAB ex DESC : 
6A4? DF OO1AB PUSHAL (SPVAL)CII : 
000000006 00 03 FB OOIAE CALLS #3, OTS$CVT_L_TZ : 
09 11 0018 BRB ; 
28 AE 00000000" EF 08 2800187 19$: MOVC3 #8, P.AIM, HEXSTRING + 8003 
6£ DD 001CO 20$:  PUSHL REND + 8005 
48 AS OF 001 C2 PUSHAB 72(TPTR) : 
30 AE OF O01C PUSHAB HEXSTRING : 
08 oD 001¢8 PUSHL @# : 
59 DD OOICA PUSHL DLEPTR : 
0000v CF 05 ‘8 001¢C ALLS #5, REGISTER_FILL ; 
88 57 03 £3 00101 AOBLEQ : 7976 
59 24 AE DO 00105 OVL LINE feL+i6, DLEPTR : 8013 
58 0c AS 9E 00109 MOVAB 12(R9), TPT + 8014 
3C 20 6E “e 09 2c 9010p movcsS #0, (sp) #32, #60, 1(TPTR) : 8015 
OC AE O10E003C BF DO 0014 MOVL #17694780, MSG_DESCR : 8018 
10 AE 01 AB 9E OO1EC MOVAB 1(TPTR), MSG_DESCR+4 + 8019 
7E 7C OO1F1 CLRQ = = (SP) : 8021 
14 AE OF OO1F3 PUSHAB MSG_DESCR : 
14 AE OF 001F6 PUSHAB MSG-LENGTH ; 
66 DD 001F9 PUSHL  (R6 : 
000000006 00 0S FB OO1FB CALLS #5, SYSS$GETMSG : 
00000621 =F 50 01 00202 CMPL STATUS, #1569 + 8022 
03 13 00209 BEQL : 
07 50 E8 00208 BLBS STATUS ; 
3c 20 6E e 00 C o0845 21$:  mMovcsS #0, te 232. #60, 1(TPTR) + 8024 
52 40 A6 00 0081 22$: MOVL 64 (RG), PSLVAL : 8030 
50 52 01 93 F 00219 EXTZV PSLVAL, RO > 8031 
28 AE 50 0 81 0021 ADDB3 Ad a HEXS TRING F 
6E DD 00 PUSHL REN : 8032 
43 AB OOF 0 PUSHAB 6 CrpTR ) : 
30 AE OF PUSHAB HEXSTRING : 
91 DD 00228 PUSHL #1 : 
9 DD 0022D PUSHL DLEPT ; 
0000v CF 05 FB : F CALLS @ REGISTER FILL : 
50 52 9} oe F 4 EXTZ 42° PSLVAL ; 8033 
28 «AE 0 1 9 ADDBS #48 RO, Maeve kine : 
6f po PUSHL R ENS > 8034 
47 ABS 9F 0024 PUSHAB 71( ; 
30 AE 9F 0024 PUSHAB HEXSTRING ; 
1 DD 00 46 PUSHL : 
9 DD 0024 PUSHL ir ; 
0000v cr 5 FB OO24A CALLS ! REGISTER FILL ; 
50 52 01 1 EF O0024F EXTZV PSLVAL, R > 8035 
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's Routine Size: 


28 AE 
52 
28 AE 


646 bytes, 


0000Vv 


0000Vv 


Routine 


1 

1 

50 30 81 00254 
6 D 00259 

4B OA F 00258 

30 AE 9F O025E 

1 0D 8 61 

9 dD 6 

‘ SE Bie 
3 Si Bie 
of DD 00274 

4F AB YF QO 8 

30 AE 9F 7 

01 OD 7C 

59 DD 0027 

CF 05 FB 0028 
04 00285 


Base: DBGSCODE + 40DE 


beseoct9pe 03:40:24 


AX=-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGSCREEN.B32;1 


#48, RO, HEXSTRING 
REND 


75(TPTR) 
aoa 
# 
ne REGISTER FILL 
RL 
Aa "6. PREXSTRING 
RENS 
79(TPTR) 
HEXSTRING 
rf 


mer 
#5, REGISTER_FILL 
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DBGSCREEN ise -1984 02:30: AX-11 Bliss-32 V4.0-74 Page 276 
¥0e 000 14-Sep-19 4 95:70:24 DEBUG. SRC IDBGSCREE Ba3:1 . (61) 

5 ior? hk } ROUTINE REGISTER FILL(DLEPTR, LENGTH, SRCPTR, DSTPTR, REND): NOVALUE = 
3 7975 80468 1 ! FUNCTION 

: 7976 8049 1! This routine fills a source string, weual ty with a hexadecimal register 
(3 7977 8050 1! value, into a field in a register screen display. In addition to 
|; 7978 8051 1! simply filling in the source characters into the destination location, 
/3 7979 oOes 1} it checks to see if the field is a value. If so, the contents 
'3; 7980 8055 1! of the field is marked to be put out in the rendition specified by the 

: 7981 8054 1! REND input parameter (usually bolding). Hence the register display 

; 798 8055 1! highlights changed register values by showing their new values in a 

; 798 8056 1! different rendition. 

: 7984 8057 1! 

: 7985 8056 1 ! INPUTS 

3; 7986 8059 1! DLEPTR = A pointer to the Display Line —" for the text Line into 

; 444 epee ; which the new source string is to be filled. 

: oe aoe : LENGTH = The Length of the character string to be filled in. 

3; 7991 8064 1! SRCPTR = A pointer to the source location containing the character 

3; 799 8065 1! string to be copied. 

; 799 8066 1! 

3: 7994 8067 1! DSTPTR = A pointer to the destination location into which the 

; aoe 9¢4 : character string is to be copied. 

3 7997 8070 1! REND - The rendition codes to be used for fields which have 

; 7998 8071 1! changed their values. 

3; 7999 8072 1! 

; 8000 8075 1 ! OUTPUTS 

; 8001 8074 1! NONE 

; 8002 8075 1! 

; 8003 8076 1 

3; 8004 8077 2 BEGIN 

; 8005 8078 2 

; 8006 8079 2 MAP ; 

; 8007 3080 § DLEPTR: REF DBGSDLINE_ENTRY; ! Pointer to the Display Line Entry 

; 8009 8082 2 LOCAL ; : 

; 8010 80835 2 TPTR: REF VECTORC, BYTE); ! Pointer to display Line's text vector 

; 8011 8084 2 

3 a0le 8085 2 

; 801 8086 § 

; 8014 8087 ! If the new character string is identical in value to the string that is 

; 8015 8088 ! already in the destination field, we return immediately. This leaves 

Z Borg ist the string as is and it leaves the rendition as normal video. 

: tts 94 IF CHSEQL(.LENGTH, .SRCPTR, .LENGTH, .DSTPTR, 0) THEN RETURN; 

; 8020 809 ; 

; 8021 8094 ! The character string is changing value. Hence we copy the new value to 

; 802 8095 ' the destination address and we mark its rendition as specified by the 

3 33 943 ' REND parameter. Then return. 

3; 8024 09 : 

; 8025 09 CHSMOVE(.LENGTH, .SRCPTR, .DSTPTR); 

; 8026 09 DLEPTRLDBGS$V pL ine RENDFLG) = TRUE; 

; 8027 8100 TPTR = DLEPTRCODBGSA_DLINE_TEXT); 

; 8028 8101 CHSFILL(.REND, .LENGTH, TPTRC1 * .TPTRCO) + (.DSTPTR = TPTRCL1)))); 

; 8029 8102 RETURN; 


rey 


veessnee™ 
; 8030 
; 8051 


08 AC 


|; Routire Size: 


10 BC 
10 «BC 


52 
14 «AC 


50 bytes, 


oc =BC 
oc C 
50 
09 Ad 
50 
51 
10 AC 
51 
6€ 


Routine Base: 


0 
08 AC 29 $000 CMPC 
26 13 0000 BEQL 
08 AC 28 88008 MOvC3 
04 AC 00 0001 MOVL 
01 88 00016 BISB2 
OC CO QOOIA ADDL2 
69 9A 00010 MOVZBL 
50 ¢3 00020 SUBL 3 
52 C€0 00025 ADDL 
00 2C 00028 movc 
6140 0002F 
04 00031 1$: RET 


DBGSCODE + 4364 


pal9be 18:17:43 — EDeaUG. SRCSDBGSCREEN.038;1 


Save R2,R3,R4,R5 
LENGTH, @SRCPTR, aDSTPTR 


LENGTH, @SRCPTR, @DSTPTR 
DLEPTR, RO 


#1, 9(RO) 
wid, TPTR 
(TPTR), R1 
TPTR, DSTPTR, R2 


Re, 
#0, (SP), REND, LENGTH, (RI)CTPTRI 
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_DBGSCREEN 1b-se 1984 02:30:21 AX-11 Bliss-32 V4.0-74 Page 278 
v04-0 12-80 8= 1382 98:70:88 DEBUG. GRC ISBGSCKEEN.0455 1 . B35 
; HY ; B16 ; ROUTINE WINDOW _SOURCE_LINE(DISPID, DOWN_FLAG) = 
; 8035 109 1 ! FUNCTION 
; 8036 8108 1! This routine returns the Display Line entry which contains the first 
; 8037 8109 1! source Line number of the current screen window of a yt rbd fay display. 
; 8038 8110 1! Normally, this is simply the Line number of the first Display Line 
; 8039 8111 1! Entry in the display's screen window. However, if that first Line does 
; 8040 sig }! not have a Line number (it could be an unnumbered page eject record in 
; 8041 8115 1! the source file), then this routine searches forward and backward until 
oOe§ 8114 1! it finds the nearest source Line with a Line number. A pointer to the 
; 804 8115 1! Display Line Entry for that source Line is returned as this routine's 
; pone gig : value. This routine is called when scrolling source displays. 
; 8046 8118 1! INPUTS 
; 8047 8119 1! DISPID = A pointer to the Screen Display Entry for which the first 
3 9k g139 ? window Line number is desired. 
; 8050 sis¢ 1! DOWN_FLAG - A flag set to TRUE if the display is to be scrolled down 
; 8051 Hf 1! and set to FALSE if the display is to be scrolled up. 
; 805 8124 1! 
; 805 8125 1 ! OUTPUTS — 
; 8054 8126 1! This routine returns a pointer to the Screen Display Line Entry for 
; 8055 8127 1! the source Line with the first source Line number in the 
; 8056 8128 1! current display window. 
; 8057 o\¢2 1! 
; 8058 8130 1 
; 8059 8131 2 BEGIN 
; 8060 AT 2 
; 8061 8135 2 MAP 
: B06¢ 8134 2 DISPID: REF DBGSDISP_ENTRY; ! Pointer to Screen Display Entry 
; 806 8135 2 
; 8064 8136 2 LOCAL 
; 8065 8137 2 DLEPTR: REF DBGSDLINE ENTRY; ! Pointer to current Display Line Entry 
3; 8066 8138 2 
3; 8067 8139 2 
; 8068 8140 2 
; 8069 8141 2 ! Search the specified eg Display Line carey List in the preferred 
; 8070 3166 2 ' direction until we find a Display Line Entry with a Line number. When 
3; 8071 81435 2 ! we find such an entry, return its address to the caller. The preferred 
; 807 8144 2 i direction is forward if we are scrolling down and backward if we are 
; 807 8145 2 ' scrolling up. 
3; 8074 o146 4 
; 8075 814 DLEPTR = .DISPIDCDBG$L_DISP_WINDOW_PTRI; 
; 807 B18 WHILE TRUE DO 
3; 807 14 BEGIN 
; 8078 8150 IF .DLEPTRCDBGSL_DLINE_LINUM) GEQ 0 THEN RETURN .DLEPTR; 
; 8079 8151 IF .DOWN_FLAG 
; 8080 5126 TH 
; 8081 153 4 BEGIN 
; 808 8154 4 IF .DLEPTR EQL .DISPIDCOBGSL_DISP GMO .LINE _PTAI THEN EXITLOOP; 
; 808 155 4 DLEPTR = .DLEPTRCDBGSL_DLINE_FLINR); 
; 8084 138 4 END 
3; 8085 157 4 
; 086 138 3 ELSE 
; 808 159 4 BEGIN 
; 8088 160 4 IF .DLEPTR EQL .DISPIDCDOBGSL_DISP START LINE_PTR) THEN EXITLOOP; 
; 8089 8161 4 DLEPTR = .DLEPTRCDBGSL_DLINE-BLINRI; 


0 0d Od 09 09 Cn OD OD OD OD GD Od OD OD OD OD OD CD Gp CD CD OD CD 0D GD CD CD CD CD 
pa ea ar ee er er ee er er er er er er er er er her er or er ee oer oe ee eee 


H 1 

DBGSCREEN 16-Sep-1984 02:30: AX-11 Bliss-32 V4.0-74 Page 279 
v04=-000 12286871388 05:30:24 DEBUG. SRCIOBSSCREEN. O39; 1 . (62) 

8090 END; 

8091 

809 END; 

809 

8094 

8095 ! We did not find a Display Line Entry with a Line number scanning in the 

80 ' preferred direction. Hence we now scan the Display Line Entry list in 

8097 ! the opposite direction (backward if scrolling down and forward if scroll- 

8098 ing up). When we find an entry with a Line number, we return its address 


i] 
! 
' 
i 
to the caller. 

DLEPTR = .DISPIDCDBGSL_DISP_WiNDOW_PTRI; 
WHILE TRUE DO 


BEGIN 
IF .DLEPTRCDBGSL_DLINE_LINUM] GEQ 0 THEN RETURN .DLEPTR; 
If .DOWN_FLAG 


8100 


ooo 3 


o 


START LINE_PTR] THEN EXITLOOP; 


m 
v0 


TR EQL .DISPIOCOBGSL_DISP_END_LINE_PTR] THEN EXITLOOP; 
-DLEPTRCDBGS$L_DLINE_FLINRJ; 


! If we have not found a Display Line Entry with a Line number, something 
is wrong and we signal an internal DEBUG error. 


$DBG ERROR (*DBGSCREEN\WINDOW_SOURCE_LINE'); 
RETURN 0; 
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END; 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
44 GE 469 SS? SC GE 65 «6S «S2«6463~«S3:«(G7:«O42 «O44 OCC OOAl9 P.AIN: .ASCII <28>\DBGSCREEN\<92>\WINDOW_ SOURCE _LINE\ : 
45 4— 49 4C SF 45 43 52 55 4F 53 SF 57 GF OOA28 : 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
0000 00000 WINDOW_SOURCE_LINE: 
-WORD Save nothing : 8105 
51 0 AC DO 9902 MOVL DISPID. R + 8147 
50 8 Al D 06 MOVL  40(R1); DLEPTR : 
1 AO 05 OOOODA 1$: TSTL  16(DLEPTR) : 8150 
56 18 00000 BGEO ; 
08 08 AC €9 0000F BLBC  DOWN_FLAG, 2% > 8151 


1 
DBGSCREEN rhese -1984 02:30: AX-11 Bliss-32 V4.0-74 Pa 0 
v04=0 12-88-1382 95:70:28 DEBUG. SRC sacecheen.0$5s1 ve 280 
2 COA 50 D 1 MP PTR, 36(R1) : 6 
11 ts gt Geot ‘ ” : ” 
50 60 p00 00019 MOVL (DLEPTR), DLEPTR : 8155 
EC 11 gic BRB : B13 
20. A ; P| ooig 2$: cnet EPTR, 32(R1) + 8160 
50 04 8 43 99 4 MOVL  4(DLEPTR), DLEPTR + 8161 
EO 11 00028 BRB 1$ : 148 
50 28 Al DO OO02A 3$: MOVL 40(R1), DLEPTR + 817 
10 AQ D5 0002E 4$: TSTL  16(DLEPTR) t 8176 
oc 08 At ES b0083 Bree DOWN. FLAG. 5$ : 177 
20. Al 86 D1 $0 ; CMPL = DLEPTR, $5 (Rt) : $180 
11 13 00038 BEQL 6$ : 
50 04 Ad 00 00030 MOVL  4(DLEPTR), DLEPTR : 8181 
EB 11 00041 BRB 4$ : giz? 
26—=COAI 50 01 90045 5$ CMPL DLEPTR, 36(R1) + 8186 
05 13 00047 BEQL 6$ : 
50 60 D0 00049 MOVL (DLEPTR), DLEPTR + 8187 
EO 11 0004C BRB 4$ + 8174 
00000000' EF 9F OO04E 6$ PUSHAB P.AIN : 8196 
01 DD 00054 PUSHL #1 : 
00028362 8F DD 00056 PUSHL #164706 : 
000000006 00 03 FB 9005¢ CALLS #3, LIBSSIGNAL : 
50 04 0006 CLRL RO : 8197 
04 00065 7$: RET : 8199 
|; Routine Size: 102 bytes, Routine Base: DBGSCODE + 4396 
> 8128 8200 1 
: 8129 8201 0 END ELUDOM 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
; Name Bytes Attributes 
: DBGSPLIT 2614 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
; DBGSGLOBAL 32 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, L, CON, PIC,ALIGN(2) 
: DBGSOWN 6004 NOVEC, WRT, RD .NOEXE,NOSHR, LCL, » (CON, PIC,ALIGN(O) 
: DBGSCODE 17404 NOVEC,NOWRT, RD, EXE, SHR, LCL, L, CON, PIC.ALIGN(O) 
Library Statistics 
en arctan ews es et yf TS Symbols weccecoe Pages Processing 
File Total Loaded Percent Mapped Time 
~$255$0UA28:[SySL 1B ILI .L32;1 18619 18 0 1009 90:01.8 
"$255$DUA28 : (DEBUG. OBJ STRUCDEF .L32;1 32 9 :00.1 
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j 
osssaie CSEgcSMt QBEDBESU.GkSBatteR TB. 
: - 2 SDUAZ8 : (DEBUG.0BJ J0BGL1B.L32; 1545 146 9 97 00:01.8 
; 55S$0UA28 : LOEBUG. OBJ JDSTRECRDS.L32;1 
3 418 2 1 700. 

; “$255$DUA28: LDEBUG.0B J DBGMSG.L32:1 386 14 2 :00. 


: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:DBGSCREEN/OBJ=0BJ$:DBGSCREEN MSRC$:DBGSCREEN/UPDATE =(ENH$:DBGSCREEN) 


Size: a “A wi + 8650 data bytes 
Run Time: 
Elapsed Time: OS; ee: 1 
Lines/CPU Min: 1765 
mea Ae ts 2 16483 
7 Used: 763 pages 
one ation Complete 
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